投稿日 | : 2005/02/23(Wed) 15:26 |
投稿者 | : フォレスト |
Eメール | : |
URL | : |
タイトル | : Re^3: フォルダ内ファイル一覧の取得 |
> > Do
> > Form1.List1.AddItem myFileName
> > myFileName = Dir()
> > Loop Until myFileName = vbNullString
>
> Do 〜 Loop Until ではなく、Do Until 〜 Loop にする必要があるかも。
確かにそうですね。
フォルダ内にファイルがないときに、実行時エラーになっちゃいますね。
Do Until 〜
Loop
ですね<(_ _ )>