Come posso creare un funzione che mi stampi in un file di testo i nomi di tutte le sottocartelle e dei file presenti in una cartella?

sono già riuscito a creare un piccolo script in vbs che mi stampa solo i nomi di tutti i file in una cartella, ma non sò proprio come fare per i nomi delle directory...

PS: sono alle prime armi con i linguaggi della MS.