关于CommonDialog控件的show open属性！

Question

http://263.csdn.net/edyang/
Download
Source Code
CommonDialog Multi-Selection

Answer 1

dlgfile.flags=&h200
dlgfile.filter="*.*|*.*"
dlgfile.showopen
dim a() as string
a=split(dlgfile.filename," ")
'a(0)为目录，其余为所选的文件名

Answer 2

假设有一textbox
dim filenames() as string
sub command1_click()
commondialog1.flags= 524288 + 512
commondialog1.showopen
filenames()=split(commondialog1.filename,vbnullchar)
text1=join(filenames(),vbcrlf)
end sub
text1里的就是所选文件名.
[email protected]