jockos
Messages postés321Date d'inscriptiondimanche 22 octobre 2000StatutMembreDernière intervention14 mai 2005
-
13 nov. 2002 à 10:26
jockos
Messages postés321Date d'inscriptiondimanche 22 octobre 2000StatutMembreDernière intervention14 mai 2005
-
13 nov. 2002 à 17:22
Comment déterminé le nombre de fichiers que contient un repertoire donnée (en possédant son Path dans un String bien sûr) et ce de la manière la plus optimisé si possible ?
C'est une question toute bête, mais je n'arrive pas à trouver de solution fiable et rapide.
jockos
Messages postés321Date d'inscriptiondimanche 22 octobre 2000StatutMembreDernière intervention14 mai 20052 13 nov. 2002 à 12:08
ça me fait un peu chier de mettre un FileBox rien que pour connaitre le nombre de fichier qu'il y a dans un repertoire... VB est déjà lent, alors je fais toujours tous pour ne pas le charger en ocx...
Merci quand même pour ton aide, ton idée est très bonne, mais comme je n'utilise pas de FileBox dans mon prog, je vais essayer de trouver autre chose...
cs_6Po
Messages postés105Date d'inscriptionjeudi 16 mai 2002StatutMembreDernière intervention22 janvier 2009 13 nov. 2002 à 16:59
En passant par les apis de windows tu veux faire un count depuis une repertoire. Mais sais plus la quelle... a mon avis avec un moteur de recherche tu trouves facile.
mot clef : hard drive folder api
Si tu trouves pas je peux bien essayer de regarde...
jockos
Messages postés321Date d'inscriptiondimanche 22 octobre 2000StatutMembreDernière intervention14 mai 20052 13 nov. 2002 à 17:22
Merci...
J'ai trouvé ça avec une recherche sur google...
"Count file folder api"
Je vais le tester...
Function fCountFilesInDir(strDir As String, Optional varFileType As Variant) As Long
' A function to count the number of files in a directory (excluding directories)
' Accepts:
' strDir - the directory to count the files in, i.e. "C:\Folder"
' varFileType (optional) - a file extension if you only wish to count certain file types, i.e. "exe"
' Returns:
' The number of files in the directory
On Error GoTo E_Handle
Dim strFile As String
Dim lngCount As Long
strFile = Dir(strDir, vbNormal)
Do While strFile <> ""
If Not IsMissing(varFileType) Then If Right(strFile, Len(varFileType)) varFileType Then lngCount lngCount + 1
Else
lngCount = lngCount + 1
End If
strFile = Dir
Loop
fCountFilesInDir = lngCount
fExit:
Exit Function
E_Handle:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number
Resume fExit
End Function