- 締切済み
VBのDir関数について
VB6.0について質問です. Dir関数にてフォルダ内のファイルを参照したいのですがうまくいきません＞＜ 最初のファイルは参照できるのですが次のファイルへの参照ができません。。。 下記のコードでおかしいところはあるでしょうか？ path = "d:\ABC\data" item = Dir(path & "\*.mdb", vbDirectory) Do While item <> "" ' ループを開始します。 item = Dir ' 次のフォルダ名を返します。 Loop
- go_osaruku
- お礼率3% (9/283)
- Visual Basic
- 回答数4
- ありがとう数0
- みんなの回答 （4）
- 専門家の回答
みんなの回答
- otto0001otto
- ベストアンサー率25% (64/249)
回答No.4
＞でおかしいところはあるでしょうか？ あります。 「, vbDirectory」を取ってみてください。
- imogasi
- ベストアンサー率27% (4737/17069)
回答No.3
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\の￥をつけないとうまくいかない。それでは？
- 1050 円（@1050YEN）
- ベストアンサー率69% (477/687)
回答No.2
ループの中で別の関数を読んで、そこでものDIR関数を利用していたりしませんか？ http://okwave.jp/kotaeru.php3?q=403181?
- process9
- ベストアンサー率29% (81/271)
回答No.1
process9です。 一応、上の質問のソースで、 環境を同じにしたところ（d:\ABC\dataのフォルダに複数のmdbファイルを置いてやってみた。） まったく問題なく動作しましたよ。 実際のフォルダにmdbファイルが複数ないだけではないですか？ もしくは、省略したコードのどこかでクリアしてたりしないですか？
