vb6 - contare i file

[MMarzia]

dichiara queste due variabili:

Dim fsoFiles As files
Dim fsoFile As file

e recupera i nomi dei file così:

Set files = fso.GetFolder(PercorsoDirectory).files

For Each file In files
  ... file.Name ...
Next