HELP!!!! ombre de fichiers dans un répertoire pas API ou FSO
yomm
Messages postés515Date d'inscriptiondimanche 17 février 2002StatutMembreDernière intervention10 mars 2008
-
11 déc. 2002 à 12:42
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 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")
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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