Catelle, sottocartelle e file....

[Mabi]

Con la funzione Dir ?

Dim FileName As String
FileName = Dir(App.Path & "\*.*")

Do Until FileName = ""
  MsgBox FileName
  FileName = Dir
Loop

Ciao !