现今电脑硬盘的容量越来越大，其中储存的文件也越来越多，在这么多数据中要查找某一个具体的文件犹如大海捞针。幸亏Windows为我们提供了一个查找工具，利用它可以很方便地找出所需文件的确切位置。其实，我们可以自己编写一个简单的应用程序来模拟这个查找工具。Microsoft的VB6.0(5.0)就是一个理想的编程工具。 

　　首先介绍一下编程思路。该程序的核心是不被许多人注意的“递归”方法(Recursive Programing)——这是VB提供的一个强大的编程技术，让我们来看一看程序要做的事情：扫描一个文件夹（当然也可以是一个具体的硬盘盘符），如果该文件夹中没有子文件夹，事情当然就要好办得多——问题是情形往往不是这样，那我们该怎样处理子文件夹呢？看来这是一个棘手的细节，但一旦“递归”技术介入程序代码，就能迎刃而解了（实际上，“递归”几乎是解决这个问题的唯一方法）。具体做法是：编写一个扫描文件夹（Scan），当遇到子文件夹时中断当前文件夹的扫描，开始扫描子文件夹，即调用过程本身，如子文件夹中还有子文件夹，就采取相同的方法继续调用过程，直至文件夹（子文件夹）中不再含有子文件夹为止。 

　　程序涉及的控件及需改变的缺省属性如下： 
　　1：一个DriveListBox控件。 
　　2：一个DirListBox控件。 
　　3：一个ListBox控件，该控件用来显示查找到的文件。 
　　4：两个CommandButton控件。 
　　5：一个StatusBar控件，该控件用来显示查找到的文件个数，Style属性置为1，SimpleText属性置为“”。 
　　6：两个OptionButton控件，其中Option1的Value属性置为True。 
　　7：两个TextBox控件，Text属性都置为“”，其中Text1用来设置待查找文件的文件名，Text2用来设置待查找文件的扩展名，Text2的Enabled置为False，MaxLength属性置为3。 
　　8: 两个Frame控件。 
　　以下是程序清单： 
　　Option Explicit 
　　 
　　Public Sub scan(a As String) 
　　Dim filename As String 
　　Dim nd As Integer 
　　Dim fold() As String 
　　Dim n As Integer 
　　filename = Dir(a) 
　　Do While filename <> “” 
　　If Option1.Value =True Then 
　　If LCase(filename) = LCase(Text1.Text） Then 
　　List1.AddItem (a ＆ filename) 
　　End If 
　　Else 
　　If LCase(Right(filename, 3)) = LCase(Text2.Text） Then 
　　List1.AddItem (a ＆ filename) 
　　End If 
　　End If 
　　filename = Dir 
　　Loop 
　　filename = Dir(a, vbDirectory) 
　　Do While filename <> “” 
　　If filename <>“.” And filename <> “..” Then 
　　If GetAttr(a ＆ filename) = vbDirectory Then 
　　nd = nd ＋ 1 
　　ReDim Preserve fold(nd) 
　　fold(nd) = a ＆ filename 
　　End If 
　　End If 
　　filename = Dir 
　　DoEvents 
　　Loop 
　　For n = 1 To nd 
　　scan fold(n) ＆ “\” 
　　Next 
　　If List1.ListCount = 0 Then 
　　StatusBar1.SimpleText = “No file discovery” 
　　Else 
　　StatusBar1.SimpleText = List1.ListCount ＆ “file(s) discovery” 
　　End If 
　　End Sub 
　　 
　　Private Sub Command1_Click() 
　　Dim searchfold As String 
　　List1.Clear 
　　StatusBar1.SimpleText = “” 
　　If Right(Dir1.Path, 1) = “\” Then 
　　searchfold = Left(Dir1.Path, 2) 
　　Else 
　　searchfold = Dir1.Path 
　　End If 
　　Me.MousePointer = vbHourglass 
　　scan searchfold ＆ “\” 
　　Me.MousePointer = vbDefault 
　　End Sub 
　　 
　　Private Sub Command2_Click() 
　　Unload Me 
　　End Sub 
　　 
　　Private Sub Drive1_Change() 
　　On Error GoTo a 
　　Dir1.Path = Drive1.Drive 
　　Exit Sub 
　　a: 
　　If Left(Drive1.Drive, 1) = “a” Then 
　　MsgBox “Floppy drive is not be ready!”, vbCritical 
　　End If 
　　End Sub 
　　 
　　Private Sub Option1_Click() 
　　Text1.Enabled = True 
　　Text2.Enabled = False 
　　End Sub 
　　 
　　Private Sub Option2_Click() 
　　Text1.Enabled = False 
　　Text2.Enabled = True 
　　End Sub 

　　最后，再对程序代码作进一步的说明： 
　　1：过程（Scan）的参数a由DirListBox控件的选项决定，可以是硬盘盘符，如C:\(扫描整个分区),也可以是目录路径,如C:\Windows(仅扫描该目录)。 
　　2：Dir函数是过程中的关键。该函数的作用是查找任何驱动器上的文件或目录。如果调用带参数的Dir函数再调用不带参数的Dir函数，则函数将从当前要搜索的目录中返回与上一次指定参数相匹配的下一个文件，这就使遍历一个目录中的所有文件成为可能。 
　　3：程序中的错误处理语句：On Error GoTo a不能省略。这是因为如软驱中没有软盘，Drive1_Change()过程会出错。