Discussion :

[Gaetan31]

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

[kiki29]

Salut, regarde ici et adapte à ton contexte

[Invité]

Code :

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

1
2
3
4
5
6
7
'Vérifie lexistance d'un   fichier
Public Function Fichier_Exist(Fichier)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Fichier_Exist = fso.FileExists(Fichier)
Set fso = Nothing
End Function

[Gaetan31]

Merci de votre aide ma macro fonctionne.