codice:
  x = "c:\cartella\*.txt"
        y = Dir(x)
        If y = "" Then
            MsgBox "Percorso errato", vbInformation, "ATTENZIONE"
        End If
        Do Until y = ""
           Open "c:\xx.txt" For Append As #1
           Print #1, y
           'oppure se vuoi percorso completo + mome
           'Print #1,"c:\cartella\" & y
           Close #1
           y = Dir
        Loop
Ciao