Discussion :

[marsupilami34]

Bonjour à tous,

Voila, j'ai plusieur dossiers (Folder1) a consulter. Cacun de ses dossiers sont décomposé de la même manière.

La boucle suivante permet de parcourir des fichiers dans un dossier mais je n'arrive pas à l'adapter pour parcourir des dossiers dans des dossiers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim fso As New FileSystemObject
Dim fich As file
Dim Rep As Folder
 
    Set Rep = fso.GetFolder("C:\")
    For Each fich In Rep.Files
         ..........
    Next

Quelqu'un pourrait-il m'éclaircir.

Merci d'avance.

Marsup

[marsupilami34]

Je viens de trouver ce que je voulais sur le forum en utilisant tout simplement
qqch du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim oFolder as Folder
Dim oSubFolder as folder
 
For each oSubFolder in oFolder.subFolders
   .............
Next