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

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

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

有点不明白？用递归？

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

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

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

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

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

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

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

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

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

看来，我想的太天真了，本以为这样可以：
Private Sub findAllFile(path As String)
Dim strPath As String
strPath = Dir(path, vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While Len(strPath)
If Not (strPath Like "*.*") Then
findAllFile path & "\" & strPath
Else
Form1.Print strPath
End If
strPath = Dir()
Loop
End Sub

没想到出错了，dir是不是不能这样用？