[求助]急用!
下面的代码是让comdialog打开的对话框中实现多选,并找到路径。我想把所有选中的文件
名字及路径都放到一个listbox框中,用这样修改代码?请大侠帮忙。谢谢
Dim repName As String
Dim SelectFile() As String
Dim i As Integer
'选择导入的文件(可多选)
ComDialog.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
ComDialog.FileName = ""
ComDialog.ShowOpen
repName = ComDialog.FileName
If repName = "" Then Exit Sub
'将选择的文件用数组表示
SelectFile = Split(repName, Chr(0))
If UBound(SelectFile) = 0 Then
ReDim SelectFile(1)
SelectFile(1) = ComDialog.FileTitle
SelectFile(0) = Left(repName, Len(repName) - Len(SelectFile(1)) - 1)
End If
' SelectFile(0)中存放的是选择的路径
' SelectFile(1),...中存放的是选择的的文件名
我的意思实际就是把comdialog打开的对话框中选中的多项记录的路径及文件名显示到listbox中,有那位大侠帮忙实现,我很急,谢谢了






