HELP!!!! ombre de fichiers dans un répertoire pas API ou FSO

Signaler
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
voila je souhaiterai obtenir le nombre de fichiers présent dans un répertoire mais en contabilisant également les fichiers présent dans les sous-répertoires et sous-sous répertoire etc......et cela en n'ayant pour unique info le chemin du premier répertoire...
ex:
dim NbFichier as Long
nbfichier = LaFonction("c:\mes documents")

merci d'avance!!!!!!!!!
(PS:méthode filelistbox s'abstenir)

2 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Une antique méthode passant par DOS :

Function NbreFichiers(Chemin As String) As Long
Dim Ligne As String
Shell "C:\windows\command.com /C Dir " & Chemin & " /s/-p/b/a-d > C:\windows\temp\fich.txt"
MsgBox "N'importe quoi pour attendre que windows voie le fichier"
Open "C:\windows\temp\fich.txt" For Input As #1
List1.Clear
Do While Not EOF(1)
Line Input #1, Ligne
List1.AddItem Ligne
Loop
Close
Kill "C:\windows\temp\fich.txt"
NbreFichiers = List1.ListCount
End Function

Combien = NbreFichiers("C:\Répertoire)
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
J'ai oublié : il faut une ListBox (List1) qui peut très bien avoir la propriété Visible = False
0