>>618
即レスありがとうございます。
今のところループさせてData.Files(i)に詰め込んでるのですが
これをFileListBoxに表示させようとするところで詰まっています。

For i = 1 To Data.Files.Count
File1.FileName = Data.Files(i)
Next i
これだとリストには1つしか表示されないので…

ListBoxのAddItemのような感じの機能ってないでしょうか?