Bonjour a tous,

Je souhaite crée un programme qui compte le nombre de fichier dans un répertoire
Le soucis est que certains dossiers sont composés d'un fichiers (Thumbs.db)

Je souhaite tester si les dossiers comportent ce fichiers

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 For Each SubFolder In DossierSource.SubFolders
 
          NombreFichiers = FSO.GetFolder(SubFolder).Files.Count
          If FSO.GetFolder(SubFolder).FileExists("Thumbs.db") = True Then
 
            NombreFichiers = NombreFichiers - 1
            Else
 
            End If
 
          Cells(i, 4) = NombreFichiers
          i = i + 1
  Next
La ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If FSO.GetFolder(SubFolder).FileExists("Thumbs.db") = True Then
ne fonctionne pas et renvoie l'erreur 438
Comment réaliser ce test par cette méthode ou par une autre?
Merci