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
