Trouver le nombre de fichier texte*.tatatat dans un repertoire

Résolu
cs_ludwig89
Messages postés
47
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
18 septembre 2009
- 9 sept. 2004 à 09:58
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
- 9 sept. 2004 à 10:02
bonjour

dans vb6

je selectionne dans un commondialog un fichier qui s'apelle tatata01.cnc, je voudrai conaitre le nombre de fichier tatata*.cnc

comment faire

merci

1 réponse

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
9 sept. 2004 à 10:02
Private Function FileCount(ByVal Filename As String) As Long
Dim F As String, Cnt As Long
Cnt = 0
F = Dir(Filename)
While F <> ""
Cnt = Cnt + 1
F = Dir
Wend
FileCount = Cnt
End Function

Et tu appelles la fonction de la façon suivante :
MsgBox Filecount("c:\toto\tatata*.cnc")


Christophe R.
3