Nombre de fichier dans un repertoire

jockos Messages postés 321 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 14 mai 2005 - 13 nov. 2002 à 10:26
jockos Messages postés 321 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 14 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.

Merci

4 réponses

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

==============
6Po

DreamersTeam HomePage
[mailto:6po@dreamersteam.org Email]
0
jockos Messages postés 321 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 14 mai 2005 2
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
0
Rejoignez-nous