Nombre de fichier dans un répertoire
Résolu
patrizio77
Messages postés
10
Date d'inscription
lundi 13 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
-
12 juil. 2005 à 11:11
mythic_kruger Messages postés 241 Date d'inscription jeudi 8 janvier 2004 Statut Membre Dernière intervention 10 novembre 2005 - 12 juil. 2005 à 11:49
mythic_kruger Messages postés 241 Date d'inscription jeudi 8 janvier 2004 Statut Membre Dernière intervention 10 novembre 2005 - 12 juil. 2005 à 11:49
4 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
12 juil. 2005 à 11:19
12 juil. 2005 à 11:19
Private Sub Command1_Click()
Dim Rep As String
Dim n As Integer
Rep = Dir("c:\*.pdf")
While Rep <> ""
n = n + 1
Rep = Dir()
Wend
MsgBox "Nombre de Fichiers : " & n
End Sub
Daniel
Dim Rep As String
Dim n As Integer
Rep = Dir("c:\*.pdf")
While Rep <> ""
n = n + 1
Rep = Dir()
Wend
MsgBox "Nombre de Fichiers : " & n
End Sub
Daniel
patrizio77
Messages postés
10
Date d'inscription
lundi 13 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
12 juil. 2005 à 11:42
12 juil. 2005 à 11:42
merci , marche nikel!
patrizio77
Messages postés
10
Date d'inscription
lundi 13 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
12 juil. 2005 à 11:42
12 juil. 2005 à 11:42
merci , marche nikel!
mythic_kruger
Messages postés
241
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005
12 juil. 2005 à 11:49
12 juil. 2005 à 11:49
salut autre solution : le contrôle Filelistbox.
Filelist1.pattern="*.pf"
msgbox filelist1.listcount-1
Cependant le code de Gobillot est préférable.
Filelist1.pattern="*.pf"
msgbox filelist1.listcount-1
Cependant le code de Gobillot est préférable.