Question

vb 通用对话框 打开对话框 多选的Filename问题

CD.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CD.Filter = "(*.JPG)|*.JPG|(*.Bmp)|*.Bmp|(*.Gif)|*.Gif"
CD.FileName = ""
CD.ShowOpen
If CD.FileName = "" Then Exit Sub
MsgBox CD.FileName
lstPic1.AddItem CD.FileName
我的目的是多重选择几个图片文件，并将他们的文件全路经显示在列表lstPic1中，
为什么这样只得到他们的共同的路径的文件夹却得不到文件名呢？
应该怎么办？
怎样判断用户是否多选了呢？

Answer 1

获得的字符串是以chr(0)为分隔符的。可以用split(filename,chr(0))来获得文件名数组

Answer 2

CD.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CD.Filter = "(*.JPG)|*.JPG|(*.Bmp)|*.Bmp|(*.Gif)|*.Gif"
CD.FileName = ""
CD.ShowOpen
If CD.FileName = "" Then Exit Sub

MsgBox CD.FileName

If InStr(1, CD.FileName, Chr(0)) = 0 Then
Print "只选择了一个文件！"
lstPic1.AddItem CD.FileName
Else
Print "选择了多个文件！"
temp = Split(CD.FileName, Chr(0))
For i = 1 To UBound(temp)
lstPic1.AddItem temp(0) & "\" & temp(i)
Next
End If