主题：[求助]怎么样求出文件夹里的图片数目？求代码

利用帮助知识:

Dim cnt As Integer 
For Each File As String In FileSys.GetFiles("C:\data\")
    file = File.Tolower
    If file.EndsWith(".jpg") OrElse file.EndsWith(".gif")  OrElse file.EndsWith(".bmp")
        cnt = cnt + 1
    End If
Next
messagebox.show(cnt)