关于文件对话框多重选择的问题 是不是vb版本的问题啊 新手问题 求求帮忙啊？

[nethaoke]

Private Sub Form_Load()
With CommonDialog1
.FileName = ""
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
.Filter = "*.*|*.*"
.ShowOpen
MsgBox .FileName
End With
End Sub
如果是这样 选择多个文件 就只能返回路径 而把.Flags = cdlOFNAllowMultiselect 改成这样 就能正确返回 但是界面不是太好看 请大家帮忙啊 谢谢啊

[nethaoke]

没人回答 只有自己顶一下了 悲哀

[fj182]

当选择一个文件时，返回的文件名就是你需要的文件名，如果是多个文件，则是这样表示的：
文件路径+Chr(0)+文件1+Chr(0)+文件2

顺便给个取文件名的函数,它可以把CommonDialog控件返回的文件名分离出来。

Public Function GetFiles(ByVal FileName As String) As Collection

Dim i As Long
Dim j As Long
Dim v As Variant
Dim Col As New Collection

v = Split(FileName, Chr(0))
j = UBound(v)

If j = 0 Then
Col.Add v(0)
Else
For i = 1 To j
Col.Add v(0) & "\" & v(i)
Next
End If

Set GetFiles = Col

End Function

[nethaoke]

谢谢您的答复