TUTOS.EU

VbScript - Lister la taille des sous repertoires

Lister la taille des sous répertoires en VbScript avec un resultat en Mb

Dim Position
Dim TailleEnMB
Dim objFSO 'Objet FSO pour l'accès au système de fichiers
Dim objFolder 'Représente un répertoire
Dim objTextFile 'Représente le fichier texte qui contient les réponses

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

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminFichierResultat = CheminScriptActuel & "\" & "Fichier de Sortie.txt"
CheminRepertoireAExplorer = InputBox("Entrez le chemin du répertoire","Chemin du répertoire",CheminScriptActuel)
CheminFichierResultat = InputBox("Entrez le chemin du fichier contenant le resultat","Chemin du fichier de reponse",CheminFichierResultat)

'Création des objets
Set objFSO = CreateObject("Scripting.FileSystemObject")

'On fait un objet qui représente le répertoire à explorer
Set objFolder = objFSO.GetFolder(CheminRepertoireAExplorer)
Set objTextFile = objFSO.OpenTextFile(CheminFichierResultat, ForWritting, True)

For Each MonFolder In objFolder.SubFolders

	TailleEnMB = MonFolder.Size
	TailleEnMB = TailleEnMB / 1024 / 1024
	Position = InStrRev(TailleEnMB,".")
	
	If (Position > 0) Then
		TailleEnMB = Left(TailleEnMB, Position - 1)
	End If

	objTextFile.WriteLine(MonFolder.Path & VBTab & MonFolder.Name & VBTab & MonFolder.Size & VBTab & TailleEnMB)
Next

objTextFile.Close
Set objTextFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

Lien vers le fichier : cliquez ici

Article(s) en relation(s)