vb列举文件夹内的文件

这是一个使用递归方法收集目录以及子目录文件的代码

Private Sub sosuofile(MyPath As String)
On Error Resume Next
Dim Myname As String
Dim dir_i() As String
Dim i, idir As Long
Dim p1 As Integer, p2 As Integer, p3 As Integer, p4 As Integer

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"
Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbSystem)
Do While Myname <> ""
If Myname <> "." And Myname <> ".." Then
If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录
p1 = InStr(1, MyPath & Myname, "\Application Data")
p2 = InStr(1, MyPath & Myname, "\Local Settings")
p3 = InStr(1, MyPath & Myname, "\Program Files")
p4 = InStr(1, MyPath & Myname, "\System Volume Information")
If p4