nomfich=inputbox("tapez le nom complet du répertoire à explorer", _
"répertoire vbs","c:\mes documents")
Set fs = CreateObject("Scripting.FileSystemObject") 
Set rep=fs.getfolder(nomfich)
txt=""
for each fich in rep.files
txt=txt & chr(10) & fich.name & " (créé le " & left(fich.DateCreated,8) & ")"
next
msgbox txt,,"liste des fichiers du répertoire " & rep.name