con il FSO...

codice:
Dir="C:\WINDOWS\Prefetch" 
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder=fso.GetFolder(Dir)
Set Fs=Folder.Files
If Fs.Count>0 then
   For each F in Fs
      'F.Copy ecc ecc
   Next
End If