以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何遍历文件夹下的文件类型个数？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89767)
--  作者：mzpc
--  发布时间：2016/8/29 16:18:00
--  [求助]如何遍历文件夹下的文件类型个数？
images文件夹下有10个图标文件，分别为：

Green1.ico                 Red1.ico
Green2.ico                 Red2.ico
Green3.ico                 Red3.ico
Green4.ico                 Red4.ico
Green5.ico                 Red5.ico

求包含Red的图标文件个数代码如何写？
--  作者：大红袍
--  发布时间：2016/8/29 16:21:00
--  
dim count as integer = 0
For Each f As String In FileSys.GetFiles("d:\\")
    If FileSys.GetName(f) Like "*Red*" Then
        count += 1
    End If
Next
msgbox(count)
--  作者：mzpc
--  发布时间：2016/8/29 16:40:00
--  
谢谢
[此贴子已经被作者于2016/8/29 16:41:18编辑过]
--  作者：大红袍
--  发布时间：2016/8/29 16:41:00
--  
 代码没问题，路径不能写错，判断条件不能写错。
--  作者：mzpc
--  发布时间：2016/8/29 16:42:00
--  
是我自己的条件弄错了，少了个*号，谢谢老师！