Usa un contatore all'interno di.

For Each File In objFolder.Files

Roby