列表框添加项问题

Question

我用对话框选中多个文件(添加一个文件到列表框中是additem)
怎么加入多个文件到列表框中呢?

Answer 1

用for语句试试！！应该行的！！

Answer 2

CommonDialog1.Flags = &H204 Or &H80000
CommonDialog1.ShowOpen
debug.print CommonDialog1.filename这时得到的值需要处理一下，
得到类如1.txt  2.xls  .....
然后用个循环additem就可以了

Answer 3

Dim files() As String
Dim i As IntegerCommonDialog1.Flags = &H204 Or &H80000
CommonDialog1.ShowOpenfiles = Split(CommonDialog1.Filename, " ")
for i = 0 To Ubound(files)
    List1.AddItem files(i)
Next i

Answer 4

我现在是点击按钮1弹出打开对话框
files = Split(CommonDialog1.Filename, " ")
for i = 0 To Ubound(files)
    List1.AddItem files(i)
Next i这段话加到button1click中么?
还是加到那里,以便点击对话框[打开]时可以添加多项