Question

VB6.0中如何获得一个指定文件夹下的所有文件对象放到一个数组里

filelistbox可以根据文件夹路径直接显示，但我想要进行筛选等后续操作（比如选中一项点击删除按钮放到另一个box里），是不是filelistbox无法进行后续操作？listbox可以进行后续操作，那我可以先把文件对象放到一个数组里，再一个个添加到listbox里，没有直接就可以用的语句吗？vb.net里好像可以用System.IO.Directory.GetFiles(FolderPath)，VB里呢？

Answer 1

vb不用FSO也可以做到的，请试试：

Private Sub Command1_Click()
Dim fname As String
fname = Dir("d:\vb\*.*", 7)
List1.Clear
Do
If fname = "" Then Exit Do
List1.AddItem fname
fname = Dir()
Loop
MsgBox List1.ListCount & " 个文件被添加！"
End Sub

要将文件名存入数组，可以在添加后完成：
ReDim a(0 To List1.ListCount-1) As String
For i = 0 To List1.ListCount - 1
a(i) = List1.List(i)
Print a(i)
Next