Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么样求出文件夹里的图片数目?求代码


  共有6997人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
effective
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
[求助]怎么样求出文件夹里的图片数目?求代码  发帖心情 Post By:2013/3/29 14:25:00 [只看该作者]

怎么样求出文件夹里的图片数目?求代码

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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)


 回到顶部