Dim strFolder As String
Dim strSubfolder As String
strFolder = "C:\MyFolder\"
strSubfolder = Dir(strFolder, vbDirectory)
Do While Len(strSubfolder) > 0
If strSubfolder <> "." And strSubfolder <> ".." Then
Debug.Print strFolder & strSubfolder
End If
strSubfolder = Dir()
Loop
Dim strFolder As String
Dim strSubfolder As String
strFolder = "C:\MyFolder\"
strSubfolder = Dir(strFolder, vbDirectory)
Do While Len(strSubfolder) > 0
If strSubfolder <> "." And strSubfolder <> ".." Then
Debug.Print strFolder & strSubfolder
End If
strSubfolder = Dir()
Loop