选取文件夹下多个文件，把文件路径放入数组

Question

我想做个按钮，点一下选取文件夹下多个文件，并把各个文件路径放入数组？ 
问题补充：比如说d:\下有1.txt，2.txt，3.mp3，4.rar,怎么把它们的文件路径放进一个数组里，比如a(1)=d:\1.txt,a(2)=d:\2.txt .....

Answer 1

dir 循环读取然后Redim Preserve

Answer 2

CommonDialog1.Flags = &H80200
CommonDialog1.MaxFileSize = 1024
CommonDialog1.ShowOpen
s = CommonDialog1.FileName
这样CommonDialog1就可以多选了

Answer 3

这样CommonDialog1就可以多选，再分割s放入数组就可以了

Answer 4

在D盘下建一个test文件夹,里面有5个文件1.txt,2.txt,3.txt,4.txt,5.txt
Dim fso As FileSystemObject
Dim x As Files
Dim y As File
Dim a(100) As String
Dim z, q As Integer
Private Sub Command1_Click()
Set fso = CreateObject("scripting.filesystemobject")
Set x = fso.GetFolder("D:\test\").Files
For Each y In x
a(z) = y.Name
z = z + 1
Next
For q = 0 To 100 '以下测试是否存进数组
Print a(q)
Next q
End SubPrivate Sub Form_Load()
z = 0
End Sub

Answer 5

For Each foundfile As String In My.Computer.FileSystem.GetFiles("d:\")
    foundfile = foundfile & vbCrLf
    My.Computer.FileSystem.WriteAllText("D:\FILELIST.TXT", foundfile, True)
Next