crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 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