Praticamente mi servirebbe qualcosa del genere però che mi restituisse anche i nomi delle directory...
codice:
Dim fso 	' il file system object 
Dim folder 	' la cartella (directory) 
Dim file 	' il singolo file 
Dim string 	' per contenere l'elenco 

' N.B. 	assumo che 'dirName' contenga il nome della 
' 	directory che si vuole 'listare' 

' creo il FSO ed accedo alla singola cartella 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set folder = fso.GetFolder( "C:\Programmi" ) 

' pulisco la stringa 
string = "" 
Fol = ""

' ciclo su tutti i file della cartella 
For Each file in folder.Files 
string = string & file.name 
string = string & vbCrLf 
Next 

' a questo punto 'string' contiene l'elenco separato 
' da 'ritorni a capo'. 

' NOTA:
' si suppone che 'fileName' contenga il nome del
' file da scrivere.

' creo il FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' pulisco la stringa
'string = ""
   
' verifico che il file NON esista
If Not fso.FileExists( "doc.txt" ) Then

   ' accedo al file
   Set file = fso.OpenTextFile( "doc.txt", 2, True, 0)
   
   ' inserisco 3 righe nel file
   file.Write String & vbCrLf
   file.Write folder & vbCrLf

   
   file.Close
   Set file=Nothing
   
End If
Set folder=Nothing 
Set fso=Nothing
[OT] mi scuso con i moderatori per l'errato inserimento