Leggere cartelle e file

[Mabi]

Un terzo modo è quello di utilizzare la funzione Dir:

Dim NomeFile As String
Dim NomeCartella As String

NomeCartella = "C:\"

NomeFile = Dir(NomeCartella)
Do Until NomeFile = ""
  MsgBox NomeFile
  NomeFile = Dir
Loop