Obtenire une collection du dossier courant

Obtenire une collection du dossier courant - VB/VBA/VBS - Programmation

Marsh Posté le 31-01-2006 à 12:11:18    

Bonjour
 
J'ai un script qui permet de scanner un dossier et ses sous dossiers.

Code :
  1. For Each DossierNomLib in Musique
  2.  CheminMusique = MaMusique & DossierNomLib.name
  3.  'J'obtient un objet qui me permettra de scanné les dossiers et fichiers du dossier actuelle
  4.  Set ptDossierMus = ptObj.GetFolder(CheminMusique)
  5.  'Set Fichier = ptDossierMus.Files
  6.  Set Dossier = ptDossierMus.SubFolders
  8.  'Appel de la fonction récursive de scan des sous dossiers
  9.  SauveFichier()
  10. 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 :
  1. 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 !

Reply

Marsh Posté le 31-01-2006 à 12:11:18   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed