Discussion :

[rampage92]

Bonjour à tous,

Je souhaiterai récupérer les repertoires contenus dans un repertoires pour ce faire j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set f = fso.GetFolder("C:\Src\") 'Return the Folder object
 
For each fc in f.Folders 'Print all folders in Folder
  Debug.Print fc.Name
Next fc
For each fc in f.Files 'Print all files in Folder
  Debug.Print fc.Name
Next fc

La partie soulignée en rouge devrait fonctionnée mais me retourne un message d'erreur :

Run time error 438

Object does not support this property or method

Je me demande si je ne dois pas ajouter une reference.

A noter que la partie en verte fonctionne parfaitement

Merci pour votre aide

[Menhir]

Il est plus simple de faire ça avec la fonction Dir().

Code :

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

1
2
3
4
5
6
Dim Rep As String
Rep = Dir("C:\Src\", vbDirectory)
While Len(Rep) > 0
   Debug.Print Rep
   Rep = Dir
Wend

[laurent_ott]

Pour compléter l'excellente réponse faite, voici un code pour analyser aussi les sous-répertoires (ce n'était pas dans la question, je sais, et avec mon téléphone je ne peux pas mettre le code en balise, mais au cas où) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'-------------------------------------------------------------------------------
Sub MesRepertoires(StrRepertoire As String)
'-------------------------------------------------------------------------------
Dim ObjFso, ObjDossier, ObjSousRep, SousRep
 
Set ObjFso = CreateObject("Scripting.FileSystemObject") ' Objet ActiveX
Set ObjDossier = ObjFso.GetFolder(StrRepertoire)        ' Objet Dossier.
Set ObjSousRep = ObjDossier.SubFolders                  ' Objet Sous-répertoire.
Static y As Long
 
For Each SousRep In ObjSousRep ' Boucle sur les sous-répertoires du dossier.
 
    If SousRep.Attributes = 16 Or SousRep.Attributes = 17 Then ' Si attribut Normal.
 
        Cells(y + 1, 1) = SousRep.Path ' Affiche le sous-répertoire
        y = y + 1
 
        Call MesRepertoires(SousRep.Path) ' Récursivité sur le sous-répertoire.
 
Next SousRep ' Sous-répertoire suivant.
 
End Sub