Nombre de fichier dans un repertoire

Question

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

acive · Answer

Salut, tu mets un FileBox et puis
File1.path = "chemin"
nbre de fichiers = (file1.listcount -1)
voila

jockos · Answer

ç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 · Answer

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...

==============
6Po

DreamersTeam HomePage
[mailto:6po@dreamersteam.org Email]

jockos · Answer

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