Discussion :

[meditladsus]

Bonjour,
Comment faire pour que dans ce code de comptage recursif des fichiers, les fichiers cachés/systems ne soient pas pris en compte ?

Code :

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

1
2
3
4
5
6
Dim fs As Variant, RepFich As Variant
    Set fs = CreateObject("Scripting.FileSystemObject")
    CompteLesFichiers = fs.GetFolder(Chemin).Files.Count
    For Each RepFich In fs.GetFolder(Chemin).SubFolders
        CompteLesFichiers = CompteLesFichiers + CompteLesFichiers(RepFich.Path)
    Next RepFich

Merci d'avance à ceux qui pourraient m'aider...

[robyseb]

essai quelque chose comme ca ..

Code :

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

1
2
3
4
5
6
7
    For Each RepFich In fs.GetFolder(Chemin).SubFolders
        If (RepFich.Attributes And vbHidden) = 0 Then
            CompteLesFichiers = CompteLesFichiers + CompteLesFichiers(RepFich.Path) - 1
        else
            CompteLesFichiers = CompteLesFichiers + CompteLesFichiers(RepFich.Path)
        End If
   Next RepFich

[meditladsus]

Tout d'abord, mes excuses de ne pas avoir utilisé les balises de code dans mon post. J'utilise beaucoup le site afin de trouver des exemples et de mieux comprendre le fonctionnement de VBA... J’espère désormais pouvoir contribuer au site.
Ensuite, merci beaucoup a Robyseb pour la rapidité de cette réponse... je ne pourrais la tester que mardi, mais ça me semble évident maintenant. Je ne manquerais pas de te tenir informé...
Merci encore.

[meditladsus]

Cette solution fonctionne parfaitement, et je m'y attendais...
Merci mille fois !

[meditladsus]

Bon... Après réflexion, il y a quand même un petit problème... Il semblerait qu'un dossier vide retourne -1. Un fichier caché seul est en effet bien décompté, mais pas s'il est accompagné d'un autre fichier (ex : une image et son fichier Thumbs comptés comme 2 fichiers au lieu d'1)... Finalement le résultat produit est un peu aléatoire en fonction du nombre de dossiers et fichier présents...
J'ai atteins mes limites de compréhension par rapport à mes connaissances en VBA. arghhhh...


Petit rappel du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Function CompteLesFichiers(Chemin As String) As Long
Dim fs As Variant, RepFich As Variant
    Set fs = CreateObject("Scripting.FileSystemObject")
    CompteLesFichiers = fs.GetFolder(Chemin).Files.Count
    For Each RepFich In fs.GetFolder(Chemin).SubFolders
        If (RepFich.Attributes And vbHidden) = 0 Then
            CompteLesFichiers = CompteLesFichiers + CompteLesFichiers(RepFich.Path) - 1
        Else
            CompteLesFichiers = CompteLesFichiers + CompteLesFichiers(RepFich.Path)
        End If
    Next RepFich
End Function

[meditladsus]

Finalement, j'ai été obligé de bricoler un peu pour trouver enfin la bonne solution...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Function CompteLesFichiers(Chemin As String) As Long
Dim fs As Variant, RepFich As Variant, strChaine As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    strChaine = Dir(Chemin & "*.*")
Do While strChaine <> ""
    CompteLesFichiers = CompteLesFichiers + 1
    strChaine = Dir
Loop
For Each RepFich In fs.GetFolder(Chemin).subfolders
    CompteLesFichiers = CompteLesFichiers + CompteLesFichiers(RepFich.Path & "\")
Next RepFich
End Function

Mais cette fois, ca fonctionne parfaitement et ne compte pas les fichiers cachés ni les fichiers systems...