Listing fichier

Bonjour,

Je voudrais lister tous les fichiers d'une arborescence de dossier!
J'ai essayer en vbs, j'arrive à lister pour le premier niveau, mais je n'arrive pas à mettre en place une boucle afin de descendre dans les sous dossiers...
Voilà le script pour le premier et le deuxieme niveau:

source = ""
SubFolder = True
While SubFolder = True then
SubFolder = False
Set fs = CreateObject("Scripting.FileSystemObject")
Set MonRep = fs.GetFolder(source)
set ColRep = MonRep.SubFolders
for each folderItem in ColRep
set mesFichiers = fs.GetFolder(folderItem.path)
set ColFiles = mesFichiers.Files
For Each FilesItem In ColFiles
next
next
msgbox("End Of Script")


Si quelqu'un a une idee de comment faire, je suis preneur!