Nombre de fichier dans un repertoire

Signaler
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
-
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
-
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

4 réponses


Salut, tu mets un FileBox et puis
File1.path = "chemin"
nbre de fichiers = (file1.listcount -1)
voila
0
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
2
ç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...
0
Messages postés
105
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
22 janvier 2009

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]
0
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
2
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
0