麻烦大家帮我看看这个VBA程序哪里有错误??解决就给分~~~~~~~

Public Sub PathName()

mPath = "D:\ScienceDirect"
If Right(mPath, 1) <> "\" Then
mPath = mPath & "\"
End If

myName = Dir(mPath, vbDirectory)
Do While myName <> ""
If myName <> "." And myName <> ".." Then
If (GetAttr(mPath & myName) And vbDirectory) = vbDirectory Then

mPath1 = mPath & myName & "\"
Debug.Print mPath & myName & "\", myName, mPath1
PathName1 (mPath1)

End If
End If
myName = Dir
Loop
End Sub


Public Sub PathName1(mPath1 As String)

myName1 = Dir(mPath1, vbDirectory)
Do While myName1 <> ""
If myName1 <> "." And myName1 <> ".." Then
If (GetAttr(mPath1 & myName1) And vbDirectory) = vbDirectory Then

Debug.Print mPath1 & myName1 & "\", myName1
mPath2 = mPath1 & myName1 & "\"

End If
End If
myName1 = Dir
Loop
End Sub