| 投稿日 | ： 2005/02/23(Wed) 13:56 |
| 投稿者 | ： tanaka |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： フォルダ内ファイル一覧の取得 |
こんにちは。
今以下のように、DIR関数を使用して、ファイル名の一覧を取得しているのですが、
ファイルが４つ存在する場合、３つ、ファイルが３つ存在する場合、２つとファイルが１つ
欠けてしまいます。原因がわからずに困っています。宜しくお願いします。
ソース
Dim myFileName As String
myFileName = Dir(App.Path & "\support\" & "*")
While myFileName <> vbNullString
myFileName = Dir()
Form1.List1.AddItem myFileName
Wend