[VBS] Compter et Récuperer nom dossier
Résolu
Allizou
Messages postés
46
Date d'inscription
Statut
Membre
Dernière intervention
-
Allizou Messages postés 46 Date d'inscription Statut Membre Dernière intervention -
Allizou Messages postés 46 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.
A voir également:
- Vba récupérer nom fichier d'un dossier
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Dossier appdata - Guide
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:
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.
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.