Dim strName As String, Rassh() As String
strName = Dir("D:\*.*")
Do Until Len(strName) = 0
Rassh = Split(strName, ".")
Select Case Rassh(UBound(Rassh)) 'смотрим расширение файла
Case "gif", "jpg"
'счетчик gif и jpg
Case "wmf"
'счетчик wmf
Case "dwg"
'счетчик dwg
End Select
strName = Dir
Loop
|