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.
ç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...
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...
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
