搞VB那么多年了,今天才发现不会多选文件....

Question

On Error Resume Next
cdlg.CancelError = True
cdlg.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
cdlg.ShowOpen
txtPath = cdlg.filename就出来个路径,不出来我选择的东西?
晕死,如果光 cdlOFNAllowMultiselect 的话,那个界面死难看!....

Answer 1

顶...........高手用VB给整一个替换软件啊http://ghbbs.duowan.com/qiwuyunnuo/attachments/month_1004/20100414_0a249fce91f511b0c587DbVgzsmO0Aju.jpg

Answer 2

呵呵,我搞定了...
Private Sub Command1_Click()
CD.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CD.Filter = "(*.JPG)|*.JPG|(*.Bmp)|*.Bmp|(*.Gif)|*.Gif"
CD.FileName = ""
CD.ShowOpen
If CD.FileName = "" Then Exit SubMsgBox CD.FileNameIf 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
End Sub它是用chr(0)作为分隔的...哎...

Answer 3

它是用chr(0)作为分隔的...哎...