>>187

strGetFolder = Dir(strFolder, vbDirectory)
Do While strGetFolder <> ""
　　If Not (strGetFolder = "." Or strGetFolder = "..") Then
　　　　MsgBox strGetFolder
　　End If

　　strGetFolder = Dir()
Loop

普通に書くとこうだな。
Dir の返り値が "" の時に Dir() を呼ぶとエラーになったっけかなぁ？
とりあえず、Doループに入る時点でDirの返り値が空かどうか確認しる。