原文地址
 
Dir 函数示例
 本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。
 
 Dim MyFile, MyPath, MyName
 
 ' 返回“WIN.INI” （如果该文件存在）。
 MyFile = Dir("C:\WINDOWS\WIN.ini")   
 
 ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，
 ' 函数将返回按条件第一个找到的文件名。
 MyFile = Dir("C:\WINDOWS\*.ini")
 
 ' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。
 MyFile = Dir
 
 ' 返回找到的第一个隐式 *.TXT 文件。
 MyFile = Dir("*.TXT", vbHidden)
 
 ' 显示 C:\ 目录下的名称。
 MyPath = "c:\"   ' 指定路径。
 MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
 Do While MyName <> ""   ' 开始循环。
    ' 跳过当前的目录及上层目录。
    If MyName <> "." And MyName <> ".." Then
       ' 使用位比较来确定 MyName 代表一目录。
       If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
          Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。
       End If
    End If
    MyName = Dir   ' 查找下一个目录。
 Loop
 
 
 
 帮助里面的解释，这里应该有你要的答案。
 

vb中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名,目录名或卷标名,dir函数的语法结构为:Member Function Dir[(Pathname[,attributes])] As String 其中参数Pathname通常为一个文件名,此文件名可以包含目录或文件夹以及驱动器符号,如果没有找到指定的Pathname,dir语句将返回一个零长度的字符串("").支持多字符通配符和单字符通配符.需要注意的是 1.在程序中第一次调用dir函数时必须指明pathname参数,否则会产生运行错误; 2.dir函数只返回满足pathname条件的第一个文件名或目录名,要得到其余满足条件的文件名,可以再次调用dir函数而不用带参数,当没有匹配的文件,dir函数返回零长度的字符串,而此时如果再想调用dir函数,必须指定pathname参数,否则出现运行错误; 3.在没有检索到满足当前pathname匹配条件的文件时可以改变新的pathname值,但不能再次递归调用dir函数; 4.调用dir函数时将属性参数设置为vbdirectory并不能连续返回子目录,仅返回当前目录下的目录. 例1 Public Sub main() Dim filenames As String filenames = Dir("c:/", vbNormal + vbDirectory) Do While filenames <> "" Debug.Print filenames filenames = Dir ’再次调用dir函数,此时可以不带参数 Loop End Sub 例2 ’将符合条件的条件和目录分类,存到对应的数组中,完成输出 Public Sub main() Dim FileNames As String, DirNames As String Dim FileArray() As String, DirArray() As String Dim TotalDirs As Integer, TotalFiles As Integer Dim iLoop As Integer DirNames = "c:/" FileNames = Dir(Dirname, vbNormal + vbDirectory) Do While FileNames <> "" If FileNames <> "." And FileNames <> ".." Then If (GetAttr(Dirname & FileNames) And vbDirectory) = vbDirectory Then TotalDirs = TotalDirs + 1 ReDim Preserve DirArray(TotalDirs) DirArray(TotalDirs) = FileNames Else TotalFiles = TotalFiles + 1 ReDim Preserve FileArray(TotalFiles) FileArray(TotalFiles) = FileNames End If End If FileNames = Dir Loop ’这里可对数组进行排序,此处略 Debug.Print "___Directories______" For iLoop = 0 To UBound(DirArray) Debug.Print DirArray(iLoop) Next Debug.Print "___Files____" For iLoop = 0 To UBound(FileArray) Debug.Print FileArray(iLoop) Next End Sub Dir函数可以用在不确定本机是否存在某文件或目录的前提下后台帮助用户寻找并提示,然后运用该文件或目录完成指定操作,如run等.但是由于不能递归使用,这就意味着不能一次查找整棵树,更为糟糕的是,vb并没有提供用来在多个不知名的目录中查找某一给定的文件或文件簇的任何工具.幸运的win32api提供了一些文件查找的方法(SearchPath,FindFirstFile,FindNextFile等),此外还可利用已有的文件查找知识为用户创建一个listbox控件,用来显示所查找到的文件,以便用户能选中其一.

语法: 
Dir[(pathname[, attributes])]
 
Dir 函数的语法具有以下几个部分：
 
以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!
 
以下是VB帮助自带查目录的例子，明确的指出目录必须要用GetAttr！！！
 
' 显示 C:\ 目录下的名称。
 MyPath = "c:\" ' 指定路径。
 MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
 Do While MyName <> "" ' 开始循环。
 ' 跳过当前的目录及上层目录。
 If MyName <> "." And MyName <> ".." Then
 ' 使用位比较来确定 MyName 代表一目录。
 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
 
Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
 End If
 End If
 MyName = Dir ' 查找下一个目录。
 Loop
 
 

 =========================================
 
用VB函数Dir实现递归搜索目录
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
'函数GetExtName
 
'功能:得到文件后缀名(扩展名)
 
'输入:文件名
 
'输出:文件后缀名(扩展名)
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Public Function GetExtName(strFileName As String) As String
 Dim strTmp As String
 Dim strByte As String
 Dim i As Long
 For i = Len(strFileName) To 1 Step -1
      strByte = Mid(strFileName, i, 1)
      If strByte <> "." Then
         strTmp = strByte + strTmp
     Else
       Exit For
     End If
 Next i
 GetExtName = strTmp
 End Function
 Public Function search(ByVal strPath As String, Optional strSearch As String = "") As Boolean
 Dim strFileDir() As String
 Dim strFile As String
 Dim i As Long
 
Dim lDirCount As Long
 On Error GoTo MyErr
 If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
 strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
 While strFile <> "" '搜索当前目录
         DoEvents
         If (GetAttr(strPath + strFile) And vbDirectory) = vbDirectory Then '如果找到的是目录
            If strFile <> "." And strFile <> ".." Then '排除掉父目录(..)和当前目录(.)
                lDirCount = lDirCount + 1 '将目录数增1
                ReDim Preserve strFileDir(lDirCount) As String
                strFileDir(lDirCount - 1) = strFile '用动态数组保存当前目录名
            End If
         Else
             If strSearch = "" Then
         Form1.List1.AddItem strPath + strFile
             ElseIf LCase(GetExtName(strPath + strFile)) = LCase(GetExtName(strSearch)) Then
               '满足搜索条件，则处理该文件
                Form1.List1.AddItem strPath + strFile '将文件全名保存至列表框List1中
             End If
         End If
         strFile = Dir
 Wend
 For i = 0 To lDirCount - 1
       Form1.Label3.Caption = strPath + strFileDir(i)
       Call search(strPath + strFileDir(i), strSearch) '递归搜索子目录
 Next
 ReDim strFileDir(0) '将动态数组清空
 search = True '搜索成功
 Exit Function
 MyErr:
 search = False '搜索失败
 End Function
 

VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名，目录名或卷标名。dir函数的语法结构为:



Member Function Dir[(Pathname[,attributes])] As String 



　　其中参数Pathname通常为一个文件名，此文件名可以包含目录或文件夹以及驱动器符号，如果没有找到指定的Pathname，dir语句将返回一个零长度的字符串("")，支持多字符通配符和单字符通配符。需要注意的是：



　　1.在程序中第一次调用dir函数时必须指明pathname参数，否则会产生运行错误；



　　2.dir函数只返回满足pathname条件的第一个文件名或目录名，要得到其余满足条件的文件名，可以再次调用dir函数而不用带参数，当没有匹配的文件，dir函数返回零长度的字符串，而此时如果再想调用dir函数，必须指定pathname参数，否则出现运行错误；



　　3.在没有检索到满足当前pathname匹配条件的文件时可以改变新的pathname值，但不能再次递归调用dir函数；



　　4.调用dir函数时将属性参数设置为vbdirectory并不能连续返回子目录，仅返回当前目录下的目录。

　　

　　例1 




Public Sub main() 
Dim filenames As String 
filenames = Dir("c:\", vbNormal + vbDirectory) 
Do While filenames <> "" 
Debug.Print filenames 
filenames = Dir ’再次调用dir函数,此时可以不带参数 
Loop 
End Sub
 



　　例2 



’将符合条件的条件和目录分类,存到对应的数组中,完成输出 


Public Sub main() 
　Dim FileNames As String, DirNames As String 
　Dim FileArray() As String, DirArray() As String 
　Dim TotalDirs As Integer, TotalFiles As Integer 
　Dim iLoop As Integer 

　DirNames = "c:\" 
　FileNames = Dir(DirNames ,vbNormal + vbDirectory) 
　Do While FileNames <> "" 
　　If FileNames <> "." And FileNames <> ".." Then 
　　　If (GetAttr(DirNames & FileNames) And vbDirectory) = vbDirectory Then 
　　　　TotalDirs = TotalDirs + 1 
　　　　ReDim Preserve DirArray(TotalDirs) 
　　　　DirArray(TotalDirs) = FileNames 
　　　Else 
　　　　TotalFiles = TotalFiles + 1 
　　　　ReDim Preserve FileArray(TotalFiles) 
　　　　FileArray(TotalFiles) = FileNames 
　　　End If 
　　End If 
　　FileNames = Dir 
　Loop 
　’这里可对数组进行排序,此处略 
　Debug.Print "___Directories______" 
　For iLoop = 0 To UBound(DirArray) 
　　Debug.Print DirArray(iLoop) 
　Next 
　Debug.Print "___Files____" 
　For iLoop = 0 To UBound(FileArray) 
　　Debug.Print FileArray(iLoop) 
　Next 
End Sub  

　　Dir函数可以用在不确定本机是否存在某文件或目录的前提下后台帮助用户寻找并提示,然后运用该文件或目录完成指定操作,如run等。但是由于不能递归使用，这就意味着不能一次查找整棵树，更为糟糕的是，vb并没有提供用来在多个不知名的目录中查找某一给定的文件或文件簇的任何工具。幸运的win32api提供了一些文件查找的方法(SearchPath,FindFirstFile,FindNextFile等)，此外还可利用已有的文件查找知识为用户创建一个listbox控件,用来显示所查找到的文件,以便用户能选中其一。进入讨论组讨论。