如何用CommonDialog对话框选取多个文件

mayuezxl

请帮帮忙，如何用公共对话框CommonDialog实现选取多个文件（像word一样选取多个文件），谢谢了。

xiaomu

如果是用vba的话,请在论坛中搜索,如果是vlisp的话,我也卡在最后的一步,

dispbbs.asp?boardID=3&ID=40588&page=1

czlj2008

好象给flag设置一个特定的值,在分别取每个文件名(即:字符串);你可以查看help

 

xiaomu

我已经设了阿，可是还不行阿？

 

翔羽

我也想知道啊,大家多帮忙啊~~

冬雪随风

'它指定文件名列表框允许多重选择运行时，
'通过按SHIFT键以及使用UPARROW和DOWNARROW键可选择多个文件。
'作完此操作后，FileName属性就返回一个包含全部所选文件名的字符串。
'串中各文件名用空格隔开
const cdlOFNAllowMultiselect=&H200 
'它使用类似资源管理器的打开一个文件的对话框模板
const cdlOFNExplorer=&H80000 

然后设置:
object.Flags = cdlOFNAllowMultiselect or  cdlOFNExplorer
object.showopen

xiaomu

算了,还是用doslib的函数来达到这个目的吧,

翔羽

doslib的函数是什么函数？楼上是怎么实现的？

xiaomu

显示Windows公用文件打开对话框，允许多文件选择 
语法 
(dos_getfilem title path filter) 
参数 
title 对话框标题。
path 存在的目录。
filter 文件名过滤器字符串。该过滤器字符串由两个组件组成：一个描述内容(如"文本文件")，还有一个过滤器样式(如"*.TXT")。单个项目可指定多种过滤器样板，它通过分号分隔过滤样式字符(如："*.TXT;*.DOC;*.BAK")。该组件必须使用直杠("|")来分隔开。文件名过滤器字符串可由一个或多个过滤器字符串组成，它们可通过直杠("|")符号来分隔开。 
返回值 
成功时返回文件名列表。列表的第一个元素为选定目录的有效路径。
取消或出错时返回nil。 
样例 
(dos_getfilem "选择图形" "C:\\DRAWINGS\\" "图形文件(*.DWG)|*.DWG")
-> ("C:\\ DRAWINGS\\" "TITLE1.DWG" "TITLE2.DWG"...)
(dos_getfilem "选择文件" "C:\\FILES\\" "文本文件(*.TXT)|*.txt|所有文件(*.*)|*.*")
-> ("C:\\ FILES\\" "TITLE1.TXT" "TITLE2.TXT"...) 

tnt1095

我正好用vba做了一个在cad中运行选择多个文件的对话框，说是做，也就是在前人的基础上做了一个综合，你如果是需要的话，我可以把源代码发给你，希望在这里创造一个大家交流的平台和形成一个活跃的气氛，留下你的联系方式