TUTOS.EU

Lister les fichiers d'un répertoire en VBS et afficher leur shortpath

Obtenir le chemin court des fichiers d'un répertoire en vbscript

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 Copier le code

Article(s) précédent(s)

2