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
Rejoignez-nous