请问，如何遍历已知一个路径下的所有文件（这个表述可能不太准确）？

不过，我想达到的是所有文件，我现在已经知道用DIR函数可以实现，但唯一的缺憾就是如果该路径下还有文件夹，就没办法遍历文件夹里面的文件了。

现在，我该怎么做才能遍历到已知路径下的所有文件，包括该路径包含的文件夹里的所有文件！？

那你就用递归再DIR下一个子目录就行了啊。

有点不明白？用递归？

主要是现在根本就不知道该路径下有多少个文件夹！而且MSDN中不是说：不能用递归方式来调用DIR函数？

谢谢Joforn，现在有点思路了，可是有一个问题

就是如果用dir返回一个名称，怎么知道它是一个文件夹，还是一个无类型文件？

[此贴子已经被作者于2007-8-13 21:35:47编辑过]

dim lsFile as string

lsFile = Dir(App.Path & "\132\*.*", vbNormal)
do while lsfile<>""

lsfile=dir
loop

5楼的代码不行哦，只能列出本路径下的文件，连文件夹都遍历不出来，更别说深一层目录下的文件啦~~~~~~

Debug.Print Dir("*.*", vbHidden Or vbSystem Or vbDirectory)要注意跳过“.”目录，如果想要好一点的用AIP函数FindFirstFile和FindNextFile做吧，其实遍历文件网上有很多源码，你可以找找看。

Joforn的Dir("*.*", vbHidden Or vbSystem Or vbDirectory)好像不能达到目的哦

我觉得用递归写应该可以，思路是这样的，如果返回的是文件夹名则递归调用本函数，遍历这个文件夹，如返回的文件名，则用DIR继续。

现在的问题是，返回的到底是文件夹名还是无类型文件名不能区分开。如果用后缀名来判断的话，一般情况下是不会出问题。我是担心万一碰到了没有后缀的文件，不知道该怎么办！

Option Explicit
Public fso As New FileSystemObject
Dim i As Long
Private Sub Command1_Click()
i = 0
Dim lstime
lstime = Timer
If Text2 <> "" Then
Text1 = ""
findFileNm Text2, Drive1.Drive
If Text1 = "" Then
MsgBox "没有要查找的数据"
Else
MsgBox "查找完毕,总共查到文件" & i & "个" & "用时" & Int((Timer - lstime) * 1000) & "毫秒"
End If
Else
Text2.SetFocus
MsgBox "请输入查找的文件！"
End If
End Sub
Function findFileNm(SeachFileName As String, ByVal DBpathFolder As String)
Dim objFile, objFolder
Set objFolder = fso.GetFolder(DBpathFolder)
For Each objFile In objFolder.Files
If UCase(Dir(objFile.Path, vbNormal)) Like "*" & UCase(SeachFileName) & "*" Then
i = i + 1
Text1 = Text1 & objFile.Path & vbNewLine
End If
Next
For Each objFolder In objFolder.SubFolders
findFileNm SeachFileName, objFolder '递归遍历整颗树
Next
End Function

Private Sub Form_Load()
Text1 = ""
Text2 = ""

End Sub

好家伙，厉害啊~~~~~~