VBのDir関数について

VB6.0について質問です.
Dir関数にてフォルダ内のファイルを参照したいのですがうまくいきません＞＜
最初のファイルは参照できるのですが次のファイルへの参照ができません。。。
下記のコードでおかしいところはあるでしょうか？

path = "d:\ABC\data"
item = Dir(path & "\*.mdb", vbDirectory)



Do While item <> "" ' ループを開始します。


item = Dir ' 次のフォルダ名を返します。

Loop

No.4 回答者： otto0001otto 回答日時： 2006/04/19 09:16

＞でおかしいところはあるでしょうか？

あります。

「, vbDirectory」を取ってみてください。

No.3 回答者： imogasi 回答日時： 2006/04/18 22:09

Sub test01()

Dim it As String
Pt = "C:\Documents and Settings\XXX\My Documents\csv\"
it = Dir(Pt)
MsgBox it
Do While it <> ""
it = Dir()
MsgBox it
Loop
End Sub
でうまくいきました。
ーーー
CSV\の￥をつけないとうまくいかない。それでは？

No.2 回答者： 1050YEN 回答日時： 2006/04/18 21:36

ループの中で別の関数を読んで、そこでものDIR関数を利用していたりしませんか？

http://okwave.jp/kotaeru.php3?q=403181?

No.1 回答者： process9 回答日時： 2006/04/18 21:08

process9です。

一応、上の質問のソースで、
環境を同じにしたところ（d:\ABC\dataのフォルダに複数のmdbファイルを置いてやってみた。）

まったく問題なく動作しましたよ。

実際のフォルダにmdbファイルが複数ないだけではないですか？
もしくは、省略したコードのどこかでクリアしてたりしないですか？