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

[码之魂]

On Error Resume Next
cdlg.CancelError = True
cdlg.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
cdlg.ShowOpen
txtPath = cdlg.filename

就出来个路径,不出来我选择的东西?
晕死,如果光 cdlOFNAllowMultiselect 的话,那个界面死难看!....

[zdingyun]

关注本帖.

[贝隆]

跟进关注。。。。

[crackingx]

顶...........

高手用VB给整一个替换软件啊

http://ghbbs.duowan.com/qiwuyunnuo/attachments/month_1004/20100414_0a249fce91f511b0c587DbVgzsmO0Aju.jpg

[码之魂]

呵呵,我搞定了...

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 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
End Sub

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

[ACMAIN_CHM]

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

[码之魂]

分都给你们平分了,不能浪费,呵呵.