Bonjour à tous je cherche à faire une recherche avec fso dans le premier sous répertoire de chaque dossier contenu dans un répertoire.
Pour ce qui n'aurait pas compris cette phrase je m'explique
Dans un répertoire que l'ont appellera "root" j'ai plusieurs sous répertoires nommé "1, 2, 3, 4, etc." ces répertoires contiennent eux même des répertoires "1.1, 2.1, 3.1, 4.1, etc.". Moi je souhaiterais effectuer une recherche que dans le premier niveau s'est à dire les dossiers "1, 2, 3, 4, etc."
Allé petit bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Folder
oFSO = new Scripting.FileSystemObjecct
 
For Each  folders in oFld.SubFolders
oFld = oFSO.GetFolder(myfolder)
For Each files in oFld.Files
msgbox(files.name)
Next
Next
Quelle condition je pourrais utiliser dans le premier "For each" pour qu'il ne rentre pas dans les répertoires de niveau 2.
Voilou merci d'avance