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

[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)