[VB6]: Contare quanti file sono presenti in una cartella

[kappabit]

Come si fa a contare i file presenti in una cartella con visual basic 6?

[alka]

Leggi questa discussione.

Suggerisco di usare sempre la ricerca prima di aprire una nuova discussione.

Ciao!

[kappabit]

grazie mille ma non lo trovavo perchè non mi va la funzione di ricerca e continua a chiedermi di scaricare un file .php. Comunque grazie

[kappabit]

invece per ottenere il nome del file contenuto in una cartella?

Utilizzo

Dim fso As FileSystemObject
Dim fsoFolder As Folder
Dim fsoFiles As files
Dim fsoFile As file

Set fso = New FileSystemObject
Set fsoFolder = fso.GetFolder(PercorsoDirectory)
Set fsoFiles = fsoFolder.files

'numero dei files contenuti nella cartella
... fsoFiles.Count

'nomi dei files
For Each fsoFile In fsoFiles
... fsoFile .Name
Next

che funziona, ma vorrei solo ricevere il nome del primo file o di un file presente nella directory. Come posso fare invece di for each?

[oregon]

Per esempio, inseriscili in un vettore in modo da averli tutti disponibili ...

In questo esempio, vedi il nome del primo, del decimo e del ventiduesimo (se esistono ...)

    Dim fso As FileSystemObject
    Dim fsoFolder As Folder
    Dim fsoFiles As Files
    Dim File As File
    Dim fNames() As String
    Dim cFcount As Long
    
    Set fso = New FileSystemObject
    Set fsoFolder = fso.GetFolder("C:\Foto\Ostia")
    Set fsoFiles = fsoFolder.Files
    
    ReDim fNames(fsoFiles.Count)

    cFcount = 0
    For Each File In fsoFiles
        cFcount = cFcount + 1
        fNames(cFcount) = File.Name
    Next
    
    Set fsoFiles = Nothing
    Set fsoFolder = Nothing
    Set fso = Nothing
    
    Print fNames(1)
    Print fNames(10)
    Print fNames(22)

[metal_prog]

Io (utilizzo VB5) utlizzo di solito in coppia i componenti:
DirListBox e FileListBox.

Non so se faccia al caso tuo o scriverti il codice senza l'aiuto di componenti. Vabbe' ciao!