[VBS] Compter et Récuperer nom dossier
Résolu
Allizou
Messages postés
35
Date d'inscription
Statut
Membre
Dernière intervention
-
Allizou Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
Allizou Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
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.
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
-
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.
