Recuperare il numero di file contenuti in una cartella

Question

Ciao,

ho bisogno da VBA di una funzione in cui passo un percorso completo (che puù essere anche un percorso di rete) e mi restituisce il numero di file contenuti all'interno di quella cartella.

Sapete aiutarmi?

grazie,

Marco

Answer 1

Ciao Marco,

Function QuantiFile(ByVal strPercorso As String) As Long

    Dim strName As String

    Dim intConta As Long

    strName = Dir(strPercorso, vbHidden + vbNormal + vbReadOnly + vbSystem)

    Do While strName <> ""

        intConta = intConta + 1

        strName = Dir

    Loop

    QuantiFile = intConta

End Function

Puoi personalizzare l'elenco dei file da contare nella stringa Dir(strPercorso, vbHidden + vbNormal + vbReadOnly + vbSystem) selezionando uno o più degli attributi che ti interessano.

David

Answer 2

Grazie,

Marco