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

yomm Messages postés 515 Date d'inscription dimanche 17 février 2002 Statut Membre Dernière intervention 10 mars 2008 - 11 déc. 2002 à 12:42
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 11 déc. 2002 à 19:54
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

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
11 déc. 2002 à 19:49
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
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
11 déc. 2002 à 19:54
J'ai oublié : il faut une ListBox (List1) qui peut très bien avoir la propriété Visible = False
0
Rejoignez-nous