[VBS] Compter et Récuperer nom dossier
Résolu/Fermé
Allizou
Messages postés
46
Date d'inscription
mercredi 25 août 2010
Statut
Membre
Dernière intervention
22 mai 2013
-
Modifié par Allizou le 27/06/2011 à 12:07
Allizou Messages postés 46 Date d'inscription mercredi 25 août 2010 Statut Membre Dernière intervention 22 mai 2013 - 27 juin 2011 à 15:25
Allizou Messages postés 46 Date d'inscription mercredi 25 août 2010 Statut Membre Dernière intervention 22 mai 2013 - 27 juin 2011 à 15:25
A voir également:
- Vba récupérer nom fichier d'un dossier
- Fichier rar - Guide
- Comment récupérer un compte facebook piraté - Guide
- Fichier host - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Fichier iso - Guide
1 réponse
Allizou
Messages postés
46
Date d'inscription
mercredi 25 août 2010
Statut
Membre
Dernière intervention
22 mai 2013
9
27 juin 2011 à 15:25
27 juin 2011 à 15:25
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.
