Hi Shazam

You can try this script,

Code:
Const FOF_CREATEPROGRESSDLG = &H510&

Dim objShell, sFolderToCopy
Set objShell = CreateObject("Shell.Application")

sFolderToCopy = "C:\Test"

Set dUSBKeys = ScanForUSBKeys()
...