vb6 - contare i file

[FinalFantasy]

Come si fa a contare i file contenuti dentro una directory e nelle sue sotto-directory?

[FinalFantasy]

up

[MMarzia]

puoi utilizzare FileSystemObject


per ottenere il numero dei files della directory:

fso.GetFolder(PercorsoDirectory).Files.Count

per ottenere quello delle sottodirectory:

  
For Each fsoFolder In fso.GetFolder(PercorsoDirectory).SubFolders
  ... fsoFolder.Files.Count ... 
Next

[FinalFantasy]

Originariamente inviato da MMarzia
puoi utilizzare FileSystemObject

e come si fa?

[MMarzia]

Originariamente inviato da FinalFantasy
e come si fa?

aggiungi nelle referenze Microsoft Scripting Run-time

e per istanziare la variabile:

Dim fso As FileSystemObject
Set fso = New FileSystemObject

[FinalFantasy]

dopo aver contato i file...volevo controllare il nome di ognuno...ho fatto così ma nn va:

file.GetFolder(percorso).files.Item(0).Path

[FinalFantasy]

up

[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

[FinalFantasy]

Ti giuro ke nn ho capito un tubo dalla tua spiegazione. Puoi riassumere in un solo post come contare i file e ricavare i loro nomi.

[FinalFantasy]

up