Compter des fichiers

didier_3000 Messages postés 9 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 27 janvier 2004 - 26 janv. 2004 à 21:31
didier_3000 Messages postés 9 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 27 janvier 2004 - 27 janv. 2004 à 12:16
voila mon probleme :
j'ai besoin de compter le nombre de fichier dans un repertoire pour pouvoir leur appliquer un traitement
et je bute la dessus !
ex : 1.cvs 2.cvs 3.cvs 4.cvs etc... x.cvs

merci beaucoup d'avance !

3 réponses

z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 2
26 janv. 2004 à 21:59
Pour compter le nombre de fichiers, ya un trucs tout con...

Moi je suis pas fort en VB alors ja fais ca qui est rapide et efficace...

Private Sub Form_Load()
File1.Path = "C:\Windows"
MsgBox File1.ListCount
End Sub

Tu mets bien sur dans ton projet une filelistbox
Ca a le mérite de marcher...
Voili Voilo
0
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
27 janv. 2004 à 02:24
Oui c'est une solution Z980x, mais c pas trés propre si tu utilise pas de Filelistbox, il suffit de faire une boucle avec un dir :

Fic$ = Dir("c:\windows\*.*", vbNormal)
Do While Fic$ <> vbNullString
nb% = nb% + 1
Fic$ = Dir()
Loop
MsgBox "Il y a " & nb% & " Fichiers dans le dossier c:\windows"


++
0
didier_3000 Messages postés 9 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 27 janvier 2004
27 janv. 2004 à 12:16
merci beaucoup !
c'est exactement ce que je cherchais
très bonne journée !
0
Rejoignez-nous