Bonjour
J'ai un script qui permet de scanner un dossier et ses sous dossiers.
Code :
- For Each DossierNomLib in Musique
- CheminMusique = MaMusique & DossierNomLib.name
- 'J'obtient un objet qui me permettra de scanné les dossiers et fichiers du dossier actuelle
- Set ptDossierMus = ptObj.GetFolder(CheminMusique)
- 'Set Fichier = ptDossierMus.Files
- Set Dossier = ptDossierMus.SubFolders
- 'Appel de la fonction récursive de scan des sous dossiers
- SauveFichier()
- Next
|
Seulement pour mes besoins dans le for each, je voudrais obtenir une collection du dossier courant et non pas du sous dossiers comme dans le script actuel
Code :
- Set Dossier = ptDossierMus.SubFolders
|
Si cela est possible je pourrai passer la collection de dossier à ma boucle récursive
Quelqu'un a une idée ??
Merci de votre aide !
