使用VB实现统计文件夹下文件数量的思路

使用VB实现统计文件夹下文件数量的思路

一、控件方式

filelistbox 控件，可以带通配符，指定路径后，会只显示符合条件的文件名。直接读记录条数即可。
优点，代码简单，缺点，需要带一个控件。

二、代码方式

使用 DIR 函数，可以搜索某目录下所有的文件，也可以指定通配符，计数。
优点：代码运行速度快，缺点：代码稍复杂一点

示例代码：统计目录下包含“init”字符的文件数量

    Dim xFrmN
    Dim myname
    myname = Dir(App.Path & "/configuration/", 7)
Do While myname <> ""
   If Mid(myname, 1, 4) = "init" Then
      xFrmN = xFrmN + 1
   End If
   myname = Dir
Loop

三、对象方式

使用 FSO 对象，类似于控件方式的代码
优点：代码简单，缺点，工程需要引用对象。

初学VB，推荐第一种方式，代码简单。
打算深入学一点，推荐第二种。