Discussion :

[spootnic22]

Salut,
Pourriez vous me dire comment calculer le nombre de fichier dans un dossier?
Merci.

[LeXo]

BOnjour

voila t'as plus qu'a incrémenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "c:\"
rep = Dir("c:\*.*", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr("c:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
    Else
        MsgBox "Fichier " & rep
    End If
    'passe à l'élément suivant
    rep = Dir
Loop

[spootnic22]

Bonjour LeXo,
Je vous remerci de ma part pour votre solution, ça marche très bien.
A++