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
Lien vers le fichier : cliquez ici
Article(s) précédent(s)