[VB6] Leggere nomi file di una determinata cartella e scriverli in file txt

[sintax_error]

Salve gente.
Devo leggere il nome di tutti i files in una directory e scriverli in un file txt.
Dritta?

[mgmg]

  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

[oregon]

Oppure usi un oggetto FSO ...

[sintax_error]

Grazie Bro'

[sintax_error]

Grazie Bro'