' --------------------------------------
' Affiche tous les fichiers d'un dossier
' --------------------------------------
my_folder = "le_dossier"
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(my_folder)
Set fc = f.Files
list_of_files = "Dans le dossier " & my_folder & ", il y a :" & VbCrLF & VbCrLF
For Each f1 in fc
  ' Wscript.Echo f1.name
  list_of_files = list_of_files & f1.name & VbCrLF
Next
Wscript.Echo list_of_files

' --------------------------------------  
' Affiche tous les fichiers d'un dossier  
' --------------------------------------  
my_folder = Inputbox("Chemin du dossier ?" )
Set fso = CreateObject("Scripting.FileSystemObject" )  
Set f = fso.GetFolder(my_folder)  
Set fc = f.Files  
list_of_files = "Dans le dossier " & my_folder & ", il y a :" & VbCrLF & VbCrLF  
For Each f1 in fc  
  ' Wscript.Echo f1.name  
  ' Wscript.Echo f1.path  'nom complet
  ' Wscript.Echo fso.GetExtensionName(f1)
  ' Wscript.Echo fso.GetBaseName(f1)
  list_of_files = list_of_files & f1.name & VbCrLF  
Next  
Wscript.Echo list_of_files