'utilisation de dir

Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject")  

'création d'un nouveau fichier dirr.bat, y inscrire la commande dos
Set fich = fs.OpenTextFile("C:\dirr.bat", 2, true) 
rep=inputbox("choix du répertoire à examiner (nom DOS)","répertoire","c:\mesdoc~1")
chx=inputbox("choix du mode de tri (os par taille croissante" & chr(10) & "o-s par taille décroissante" & chr(10) & "od par ordre chronologique" & chr(10) & "o-d par ordre chronologique inverse" & chr(10) & "on par ordre alphabétique" & chr(10) & "oe par type de fichier" & chr(10) & "oa par date de dernier accès" & chr(10) & "ad répertoires seulement" & chr(10) & "w noms sur 5 colonnes" & chr(10) & "s y compris les sous-répertoires" & chr(10) & "o-s /s par taille décroissante y compris les sous-répertoires","tri des fichiers","od")
fich.writeLine "dir " & rep & "/" & chx & " > C:\dir.txt"
fich.close
wscript.sleep 300

'lancer le fichier batch
sh.Run "C:\dirr.bat",0,false
do while not fs.fileexists("C:\dir.txt")
loop
wscript.sleep 500

'ouvrir le fichier texte créé par le batch pour voir le résultat
sh.Run "c:\dir.txt",1,true 

'ménage
fs.deletefile "c:\dirr.bat"
fs.deletefile "c:\dir.txt"
set fich=nothing
set sh=nothing
set fs=nothing