Windows Scripts
VBScript
Compter le nombre de fichiers et de dossiers dans un répertoire


Pour : Windows


Nous allons voir à travers plusieurs exemple comment faire pour compter le nombre de dossier et de fichier dans un répertoire.
Les exemples ont été commentées pour clarifier les scripts VBS.
Voici le 1er exemple qui permet d'afficher le nombre de fichier contenu dans le répertoire "C:\Save".

Exemple:

'*** Definition des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = fSO.GetFolder("c:\Save")

'*** Comptage du nombre de fichiers dans le répertoire
CountFiles = objFolder.Files.Count

'*** Affichage du résultat
wscript.echo "Nombre de fichiers = " & CountFiles

'*** Destruction des objets
Set fso = Nothing
Set objFolder = Nothing

WScript.Quit

Le 2ème exemple permet de compter le nombre de dossier contenu dans le répertoire "C:\Save".
PS: Les chaines de code qui diffère avec le 1er exemple ont été écrit en rouge.

Exemple:

'*** Definition des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = fSO.GetFolder("c:\Save")

'*** Comptage du nombre de dossiers dans le répertoire
CountSubfolders = objFolder.Subfolders.count

'*** Affichage du résultat
wscript.echo "Nombre de dossiers = " & CountSubfolders
'*** Destruction des objets
Set fso = Nothing
Set objFolder = Nothing

WScript.Quit

Dans cette exemple on a fussionné les 2 premiers scripts VBS pour en faire plus que un seul.
Le script VBS ci-dessous permet de compter le nombre de fichier et de dossier contenu dans le repertoire "C:\Save".

Exemple:

'*** Definition des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
repertoire = "c:\Save"
Set objFolder = fSO.GetFolder(repertoire)

'*** Compte le nombre de fichiers + de dossiers contenu dans un répertoire
CountFiles = objFolder.Files.Count
CountSubfolders = objFolder.Subfolders.count

'*** Affichage des résultats
wscript.echo "Nombre de fichiers = " & CountFiles
wscript.echo "Nombre de dossiers = " & CountSubfolders

'*** Destruction des objets
Set fso = Nothing
Set objFolder = Nothing

WScript.Quit

Maintenant on va créer deux fonctions, une pour compter les fichiers et une pour compter les dossiers.

Exemple:

'*** Definition des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim repertoire

'*** Fonction Compte le nombre de fichiers contenu dans un répertoire
Function CountFiles(repertoire)
	Set objFolder = fSO.GetFolder(repertoire)
	CountFiles = objFolder.Files.Count
End Function

'*** Fonction Compte le nombre de dossiers contenu dans un répertoire
Function CountSubfolders(repertoire)
	Set objFolder = fSO.GetFolder(repertoire)
	CountSubfolders = objFolder.Subfolders.count
End Function

'*** On definit la variable pour le dossier où il est nécessaire de compter les éléments
save = "c:\save"

'*** Affichage des résultats en utilisant les 2 fonctions
wscript.echo "Nombre de fichiers = " & CountFiles(save) & " dans " & save
wscript.echo "Nombre de dossiers = " & CountSubfolders(save) & " dans " & save

'*** Destruction des objets
Set fso = Nothing
Set objFolder = Nothing

WScript.Quit

Par O.Cédric
Sur www.octetmalin.net

Article publié le:
31/12/2014 09:41

Cette page vous à plus?

Dîtes que vous l'aimez en cliquant sur le bouton Facebook.

Contact - Informations -