Discussion :

[ouskel'n'or]

En complément de la recherche d'un fichier.

Code :

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

1
2
3
4
5
6
7
8
Public Function CompteLesFichiers(Chemin As String) As Long
Dim fs, 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
End Function

Appel de la fonction :

Code :

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

1
2
3
4
5
Sub CompterSeulement()
Dim chemin As String
    chemin = "D:\Doc\" 'avec ou sans sous-répertoire
    MsgBox CompteLesFichiers(chemin)
End Sub

[philben]

bonjour ouskel'n'or,

Dim fs, RepFich As Variant

Bof...

et sans fso, ça donnerait quoi ?

amicalement,

Philippe

[ouskel'n'or]

Tu as raison !

Code :

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

Dim fs as variant, RepFich As Variant

Voilà, c'est corrigé
Teste avec object (si c'est ce qui te choquait) tu verras
Sans fso ? Tu as une idée ? Alors c'est le moment de la mettre
Je connaissais avec shell
Shell("cmd /c Dir D:\ *.* /s/a/o > Liste.txt")
qui permet de récupérer le txt contenant le nom et la taille de tous les fichiers et répertoires classés par ordre alphabétique, ainsi que le nombre de fichiers par répertoire, mais dans VBA, avec dir, je n'ai pas trouvé de correspondance. Si tu as ça, c'est intéressant, tu devrais le poser ici ou ouvrir une nouvelle discussion.
A+

[philben]

Re bonjour my friend,

en vba pur c'est possible mais plus complexe...
Il faut utiliser les fonctions Dir(), GetAttr() et une fonction récursive pour parcourir tous les sous-reps.

Il existe sur le net des "vieilles sources" !

Philippe

[ouskel'n'or]

Oui, à une époque j'avais fait ça mais ça moulinait longtemps, longtemps, c'est pourquoi je suis passé à fso malgré mes réticences. Je conseille toujours de passer par Dir quand il s'agit de lister un répertoire unique.

[lisamano]

Bonjour,

pour ceux qui cherchent comme moi, c'est pas loin mais cette fonction ne marche pas. Et comme c'est pour demain, j'ai trouvé à 3h du mat!
Le code qui marche :

Code :

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

1
2
3
4
5
6
7
8
Public Function CompteFichiers(Chemin As String) As Long
    Dim FSO As Object, folder As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
        CompteFichiers = FSO.GetFolder(Chemin).Files.Count
    For Each folder In FSO.GetFolder(Chemin).SubFolders
        CompteFichiers = CompteFichiers + FSO.GetFolder(folder.Path).Files.Count
    Next
End Function

Asqtuce :
Si c'est pour compter des fichiers, pour accélérer la procédure il est judicieux de mettre le résultat dans une table (temp). Cela permet souvent une simple réactualisation par ajout.
En effet, dans l'exemple du mode récursif, le nombre de fichiers contenus ne change pas forcement dans tous les sous-dossiers à la fois.
Relevé seulement le nombre de ceux qui ont vu un changement et l'additionner à la temp permet d’accélérer considérablement le code.
Cordialement.

[Ben_L]

Bonjour lisamano,

Le code que tu proposes contient quelques problèmes.
Tout d'abord, la ligne 7 devrait être:

Code :

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

    Next folder

De plus, ton code ne compte que les fichiers inclus dans les sous-dossiers de niveau 1. Ainsi, sur la structure de fichiers suivante:

┌ DOSSIER
├┬ SOUSDOSSIER1
│├┬ SOUSDOSSIER2
││└ Fichier1
│└ Fichier2
├ Fichier3
└ Fichier4

il ne compte que 3 fichiers. Fichier1 est oublié car il se situe dans le sous-dossier d'un sous-dossier.

Cdt

[Philippe Tulliez]

Bonjour Benjamin,
Dans une boucle For To Next, il n'est absolument pas obligatoire d'ajouter le nom de la variable au Next

Code :

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

1
2
3
4
5
6
 Dim r%, c%
 For r = 1 To 10
  For c = 1 To 5
   Debug.Print r & "/" & c
  Next
 Next

Ce code avec deux boucles fonctionne parfaitement

[Ben_L]

Bonjour Philippe,

En effet, ça fonctionne très bien !
Je ne connaissais pas cette syntaxe
Pardon à Lisamano pour la première partie de ma remarque qui était donc erronée.