[VBS] Compter et Récuperer nom dossier

[Résolu/Fermé]
Signaler
Messages postés
46
Date d'inscription
mercredi 25 août 2010
Statut
Membre
Dernière intervention
22 mai 2013
-
Messages postés
46
Date d'inscription
mercredi 25 août 2010
Statut
Membre
Dernière intervention
22 mai 2013
-
Bonjour,
Novice en VB Script, j'aurais besoin de compter le nombre de de dossiers et récupérer leur nom, dossiers contenus dans un répertoire donné. Après de vaines recherches sur internet, j'ai trouvé comment compter et récupérer le nom de fichiers, mais rien concernant des dossiers.
J'ai cherché à partir de ces liens:
https://www.commentcamarche.net/contents/1168-objet-folder
https://www.commentcamarche.net/contents/1174-objet-filesystemobject-fso
Sans grand succès ... Si quelqu'un a une piste ... J'vous en remercie d'avance !
Cordialement, Allizou.

1 réponse

Messages postés
46
Date d'inscription
mercredi 25 août 2010
Statut
Membre
Dernière intervention
22 mai 2013
9
J'ai finalement trouvé en cherchant encore.

Voici une fonction qui parcours tous les sous dossiers d'un répertoire et qui en retourne le nom:

Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Program Files\Fichiers communs"
If oFSO.FolderExists(stRep) Then
 For each oFld in  oFSO.GetFolder(stRep).SubFolders
   Wscript.Echo oFld.Name	
 Next
End If


pour les compter, il suffit d'ajouter un incrément.
Voici le lien, il y a tout:
https://vb.developpez.com/faq/vbs

Bon courage à tous.
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci