むう、クマった、
ディレクトリが尽きたら他のファイルも拾ってきてしまうなり
.netのバグ？


Dim a As String
Dim d As String

d = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)

a = Dir(d + "\*.*", FileAttribute.Directory) 'ディレクトリを指定　
TextBox1.AppendText(a + vbCrLf)

Do
a = Dir()
TextBox1.AppendText(a + vbCrLf)

Loop Until a = ""