Bonjour encore une fois les gars !

J ai un petit soucis concernant le comptage des dossiers....

grâce au code suivant je réussi à compter les fichiers dans un dossier:
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
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub testFILE()
 
  Const ctePourLecture = 1
  Const ctePourEcrire = 2
  Const ctePourAjouter = 8
 
  Dim objFSO, objDossier, objFichier, objResultat
  Dim Repertoire, NomFichierTxt
 
  'On Error Resume Next
  Repertoire = "D:\test"
  NomFichierTxt = "Resultat.txt"
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDossier = objFSO.GetFolder(Repertoire)
  Set objResultat = objFSO.CreateTextFile((Repertoire & "\" & NomFichierTxt), ctePourEcrire)
 
 
  If (objDossier.Files.Count > 0) Then
 
     For Each objFichier In objDossier.Files
        If (InStr(1, objFichier.Name, ".xls", 1) > 0) Then
            objResultat.WriteLine objFichier.Name
        End If
     Next
 
   End If
 
  objResultat.Close
  Set objResultat = Nothing
  Set objDossier = Nothing
  Set objFSO = Nothing
 
End Sub
Je voudrais faire la même chose, mais avec les dossiers qui se trouvent dans ce dossier...(cad les compter...)

apparemment l'instance objDossier n'a pas la méthode Count....

Vous auriez une idée ?

Merci d'avance !!!