[vba] contenuto di una cartella

[Luciano79]

Dim ElencoFile() As String
Dim StringaAppoggio As String
Dim ContatoreFile As Integer

ContatoreFile = 0
Redim Preserve ElencoFile(ContatoreFile)
StringaAppoggio = Dir (Percorso & "*.*")
ElencoFile(ContatoreFile) = StringaAppoggio

While StringaAppoggio <> ""
   StringaAppoggio = Dir ()
   If StringaAppoggio <> "" Then
      ContatoreFile = ContatoreFile + 1
      Redim Preserve ElencoFile(ContatoreFile)
      ElencoFile(ContatoreFile) = StringaAppoggio
    End If
Wend

ElencoFile conterrà tutti i nomi dei file trovati per un totale di ContatoreFile + 1