Bonjour,
Comment faire pour que dans ce code de comptage recursif des fichiers, les fichiers cachés/systems ne soient pas pris en compte ?
Merci d'avance à ceux qui pourraient m'aider...
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
Partager