何度もすいません。
strGetFolder = Dir(strFolder, vbDirectory)
Do
　　　　If Not (strGetFolder = "." _
　　　　Or strGetFolder = "..") Then
　　　　　　　　MsgBox strGetFolder
　　　　End If

　　　　strGetFolder = Dir()
　　　　If strGetFolder = "" Then
　　　　　　　　Exit Do
　　　　End If
Loop

これでお願いします。失礼しました。。。