哪位给个遍历某目录文件和文件夹的代码？

用System.IO里面的东东做就可以，不必调用api!
---------------------------------------------------------------

Sub SearchDirectory(ByVal Dir As String)
Dim Dirs, Files As String()
Dim s As String

Debug.WriteLine("Searching Folder """ + Dir + """ ...")

Files = System.IO.Directory.GetFiles(Dir)
For Each s In Files
Debug.WriteLine(" " + s)
Next

Dirs = System.IO.Directory.GetDirectories(Dir)
For Each s In Dirs
SearchDirectory(s)
Next
End Sub