使用Dir函数遍历文件和目录VIP专享

下载后可任意编辑使用 Dir 函数遍历文件和目录ivbscriptVb 编程中，可以通过使用控件 DriveListBox 、DirListBox 和 FileListBox 的组合，来得到某个目录下的文件或文件夹，继而可以通过递归调用来得到磁盘上所有的文件或文件夹，但是，假如可以仅通过一个函数就能完成以上的工作，何乐而不为？第一部分：Dir 函数语法：Dir[(pathname[, attributes])]作用：返回一个 String，用以表示一个文件名、目录名或文件夹名称。参数说明：pathname：字符串，要查找的文件所在目录名称；attributes：常数，指定了文件的属性。数值和描述见下：常数 值 描述 vbNormal0 (缺省) 没有属性的文件VbReadOnly 1 只读文件vbHidden 2 隐藏文件VbSystem 4 系统文件vbVolume 8 卷标文件vbDirectory 16 无属性文件及其路径和文件夹在使用中，我们可以使用通配符来制定要查找的文件，比如：dir("c:\*.txt")返回 C 盘下后缀名为”txt”的文件；dir("c:\?est.txt")返回 C 盘下后缀名为”txt”，文件名四个字符且包含”est”的文件。关键点：1、要得到其它匹配 pathname 的文件名，可再次调用 Dir，且不要使用参数；2、假如已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")；3、Dir 返回的文件或文件名是无序的。第二部分：递归调用从第一部分我们可以看出，假如我们先使用一个带有 Pathname 参数的 Dir 函数，然后不断使用不带参数的 Dir 函数，那么我们就可以获得查找目录下的所有的文件或文件夹。比如FileName = Dir(“C:\”, vbDirectory) If FileName <> "" Then Do While FileName <> ""‘获得的文件名不是空字符串的话继续执行Dosomething‘这里是调用处理过程 FileName = Dir‘调用无参 Dir 函数 Loop End If第三部分：简单图形界面在程序中，不仅仅是后台程序，更重要的还有图形界面。这里使用 StatusBar 控件、ImageList 控件、TreeView 控件和 ListView 控件将写入文本中保存的目录和文件显示出来。由于以上几个控件不是默认的控件，要使用这几个控件，应该使用菜单“工程\部件”，下载后可任意编辑然后在“控件”选项卡中选择“Microsoft Windows Common Controls 6.0”，单击“确定”，这四个控件就被加入到了工具箱中。我们在 FormMain 中放置一个 StatusBar 控件、两个 ImageList 控件、一个 TreeView 控件和一个 ListView 控件，具体放置如下图所示： Imag...