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
MsgBox Filecount("c:\toto\tatata*.cnc")