TITLE:  [140] Re: ファイルリストの表示
DATE : 2001-10-15 23:16:00
--------------------------------------------------
かず　さん、はじめまして。

ファイル名の一覧が表示したいわけですかね？
もしそうだとして話しますね。

まず、フォームにListBox（List1）とFileSystem（FileSystem1）を貼っ
てください。
あと、ここでは簡単に動作を試すために、ボタンを押すとファイルのリス
トを表示するという形にしたいと思うので、ボタンを貼ります。
で、このボタンをダブルクリックして、ボタンのイベントハンドラに次の
ように書いてみてください。

Private Sub Command1_Click()
  Dim Str
  
  List1.Clear
  
  Str = FileSystem1.Dir("\メモリ カード\*.*")
  If Str <> "" Then List1.AddItem Str
  
  While Str <> ""
    Str = FileSystem1.Dir
    If Str <> "" Then List1.AddItem Str
  Wend
  
End Sub

これで、実行して、ボタンを押すと、リストボックスにメモリカードのル
ートにあるファイル名が一覧表示されます。

# Str = FileSystem1.Dir("\メモリ カード\*.*")
#                         ~~~~~~~~~
#　 "　　"の中には半角の文字でメモリ カードと書いてあります。