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

《使用Dir函数遍历文件和目录》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、使用Dir函数遍历文件和目录ivbscriptVb编程中，可以通过使用控件DriveListBox、DirListBox和FileListBox的组合，来得到某个目录下的文件或文件夹，继而可以通过递归调用来得到磁盘上所有的文件或文件夹，但是，如果可以仅通过一个函数就能完成以上的工作，何乐而不为？第一部分：Dir函数语法：Dir[(pathname[,attributes])]作用：返回一个String，用以表示一个文件名、目录名或文件夹名称。参数说明：pathname：字符串，要查找的文件所在目录名称；attributes：常数，指定了文件的属性。数值和描述见下：常数值描述vbNormal0(

2、缺省)没有属性的文件VbReadOnly1只读文件vbHidden2隐藏文件VbSystem4系统文件vbVolume8卷标文件vbDirectory16无属性文件及其路径和文件夹在使用中，我们可以使用通配符来制定要查找的文件，比如：dir("c:*.txt")返回C盘下后缀名为”txt”的文件；dir("c:?est.txt")返回C盘下后缀名为”txt”，文件名四个字符且包含”est”的文件。关键点：1、要得到其它匹配pathname的文件名，可再次调用Dir，且不要使用参数；2、如果已没有合乎条件的文件，则Dir会返回一个零长度字符串("")；3、Dir返回的文件或文件名是无序的。第

3、二部分：递归调用从第一部分我们可以看出，如果我们先使用一个带有Pathname参数的Dir函数，然后不断使用不带参数的Dir函数，那么我们就可以获得查找目录下的所有的文件或文件夹。比如FileName=Dir(“C:”,vbDirectory)IfFileName<>""ThenDoWhileFileName<>""‘获得的文件名不是空字符串的话继续执行Dosomething‘这里是调用处理过程FileName=Dir‘调用无参Dir函数LoopEndIf第三部分：简单图形界面在程序中，不仅仅是后台程序，更重要的还有图形界面。这里使用StatusBar控件、ImageList控件、TreeV

4、iew控件和ListView控件将写入文本中保存的目录和文件显示出来。由于以上几个控件不是默认的控件，要使用这几个控件，应该使用菜单“工程部件”，然后在“控件”选项卡中选择“MicrosoftWindowsCommonControls6.0”，单击“确定”，这四个控件就被加入到了工具箱中。我们在FormMain中放置一个StatusBar控件、两个ImageList控件、一个TreeView控件和一个ListView控件，具体放置如下图所示：TreeView1ListView1StatusBar1ImageList1和ImageList2ImageList1用于TreeView1中显示图片，

5、图像的大小为16×16，图像主要用到了以下几个：ImageList2用于ListView1中显示图片，图像大小为32×32，图像用到了以下几个：设置TreeView1控件的图像列表为ImageList1；设置ListView1控件的普通图像列表为ImageList2，小图标列表为ImageList1。（一）StatusBar控件的简单使用在StatusBar1控件上点击鼠标右键，选择“属性”。在“通用”选项卡中选择“样式”为“0-sbrNormal”（多窗格样式）。在“窗格”选项卡中，通过“插入窗格”共建立了四个窗格，其中索引1、3号窗格的文本分别为：“包含目录”、“包含文件”；2、4号窗格的

6、文本为空，在编程的时候可以这样设定某个窗格的文本：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)‘第一个节

7、点，文本为”Root”，”r”是这个节点的标识字符串，‘1是在关联的ImageList控件中的图像的索引，2是在Node被选中时显示的图像索引。SetnodX=TreeView1.Nodes.Add("r",tvwChild,"child1","Child",3,4)‘这个节点是节点1("Root")的子节点，其中”r”是关联节点的标识字符串，‘tvwChild是此节点和节点1之间的关联方式（子节