Dim fso As New FileSystemObject 'Dopo aver aggiunto il riferimento
Dim cartella As Folder

Set cartella = fso.GetFolder("PathTuaCartella")
Dim i As Integer
i = 0
For Each nomefile In cartella.Files
'se può esserti utile io farei così
fso.CopyFile nomefile, "nuovoPath" & i
' se vuoi cancelli anche l'originale così:fso.DeleteFile (nomefile)
Next