Dim objFSO 'Objet FSO pour l'accès au système de fichiers
Dim MyFile 'Représente un fichier

'Déclaration des constantes pour la lecture et l'ecriture dans les fichiers
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8

CheminRepertoireAExplorer = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)

ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)

NomFichier = ScriptFileName & "_Resultat.txt"

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminFichier = CheminScriptActuel & "\" & NomFichier 'Déclaration du chemin et du nom du fichier

'Création des objets
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForWritting, True)

'On fait un objet qui représente le répertoire à explorer
Set objFolder = objFSO.GetFolder(CheminRepertoireAExplorer)
For Each MonFolder In objFolder.SubFolders
	objTextFile.WriteLine(MonFolder.Name & VbTab & MonFolder.ShortPath)	
Next
objTextFile.WriteLine("")

For Each MyFile In objFolder.Files
	'Wscript.echo MyFile.Name & VbTab & MyFile.ShortPath
	objTextFile.WriteLine(MyFile.Name & VbTab & MyFile.ShortPath)
Next

objTextFile.Close 'Fermeture du fichier
Set objTextFile = Nothing

Set objFolder = Nothing
Set objFSO = Nothing