以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么样求出文件夹里的图片数目？求代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30518)
--  作者：effective
--  发布时间：2013/3/29 14:25:00
--  [求助]怎么样求出文件夹里的图片数目？求代码
怎么样求出文件夹里的图片数目？求代码
--  作者：狐狸爸爸
--  发布时间：2013/3/29 14:43:00
--  

利用帮助知识:


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)