使u用dir函数遍历文件和目录.docVIP

使用Dir函数遍历文件和目录 ivbscript Vb编程中，可以通过使用控件DriveListBox 、DirListBox和FileListBox的组合，来得到某个目录下的文件或文件夹，继而可以通过递归调用来得到磁盘上所有的文件或文件夹，但是，如果可以仅通过一个函数就能完成以上的工作，何乐而不为？ 第一部分：Dir函数 语法：Dir[(pathname[, attributes])] 作用：返回一个 String，用以表示一个文件名、目录名或文件夹名称。 参数说明： pathname：字符串，要查找的文件所在目录名称； attributes：常数，指定了文件的属性。数值和描述见下： 常数 值 描述 vbNormal 0 (缺省) 没有属性的文件 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控件，具体放置如下图所示： ImageList1用于TreeView1中显示图片，图像的大小为16×16，图像主要用到了以下几个： ImageList2用于ListView1中显示图片，图像大小为32×32，图像用到了以下几个： 设置TreeView1控件的图像列表为ImageList1；设置ListView1控件的普通图像列表为ImageList2，小图标列表为ImageList1。 （一）StatusBar控件的简单使用 在StatusBar1控件上点击鼠标右键，选择“属性”。在“通用”选项卡中选择“样式”为“0 - sbrNormal”（多窗格样式）。在“窗格”选项卡中，通过“插入窗格”共建立了四个窗格，其中索引1、3号窗格的文本分别为：“包含目录”、“包含文件”；2、4号窗格的文本为空，在编程的时候可以这样设定某个窗格的文本： StatusBar1.Panels(Index).Text = “这里是设定的文本” ‘Index对应设定的索引号 （二）TreeView控件的简单使用 在TreeView1控件中添加一个节点的方法如下： TreeView1.Add(relative, relationship, key, text, image, selectedimage) 用法可参看Msdn ：《Add 方法（Nodes 集合）》一节。在程序中可以这样使用： Dim nodX As Node ‘声明 Node 变量。 Set nodX = TreeView1.Nodes.Add(, , r, Root，1，2) ‘第一个节点，文本为”Root”，”r”是这个节点的标识字符串， ‘1是在关联的ImageList控件中的图像的索引