使用Dir函数遍历文件和目录.doc

使用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)
IfFileName<>""Then
DoWhileFileName<>"" ‘获得的文件名不是空字符串的话继续执行
Dosomething ‘这里是调用处理过程
FileName=Dir ‘调用无参Dir函数
Loop
EndIf

第三部分：简单图形界面
在程序中，不仅仅是后台程序，更重要的还有图形界面。
这里使用StatusBar控件、ImageList控件、TreeView控件和ListView控件将写入文本中保存的目录和文件显示出来。
由于以上几个控件不是默认的控件，要使用这几个控件，应该使用菜单“工程\部件”，然后在“控件”选项卡中选择“MicrosoftWindowsCommonControls6.0”，单击“确定”，这四个控件就被加入到了工具箱中。
我们在FormMain中放置一个StatusBar控件、两个ImageList控件、一个TreeView控件和一个ListView控件，具体放置如下图所示：
TreeView1
ListView1
StatusBar1
ImageList1和ImageList2
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集合）》一节。在程序中可以这样使用：
DimnodXAsNode
‘声明Node变量。

SetnodX=TreeView1.Nodes.Add(,,"r","Root"，1，2)
‘第一个节点，文本为”Root”，”r”是这个节点的标识字符串，
‘1是在关联的ImageList控件中的图像的索引，2是在Node被选中时显示的图像索引。

SetnodX=TreeView1.Node