[VLISP程序]：利用Windows对话框一次获取多个文件

eachy

2. 
   
3. ;;test OK with XP
   
4. (defun xd-getfiles (/ x erg)
   
5.   (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))
   
6.     (progn (vlax-put-property x "DialogTitle" "选择图形文件")
   
7.            (vlax-put-property x "Filename" "*.dwg")
   
8.            (vlax-put-property x "Filter" "*.dwg")
   
9.            (vlax-put-property x "MaxFileSize" 10000)
   
10.            ;; in lisp unbedingt notwendig, sonst kommt ne fehlermeldung von wegen zu wenig speicher
    
11.            (vlax-put-property x "Flags" 512) ;_ mehrer Dateien+explorer-design
    
12.            (vlax-put-property x "Action" 1) ;_ showopen-dialog  
    
13.            (setq erg (vlax-get-property x "Filename"))
    
14.     )
    
15.   )
    
16.   (if (/= erg "*.dwg")
    
17.     erg
    
18.     nil
    
19.   )
    
20. )

<br /> ;;test OK with XP<br /> (defun xd-getfiles (/ x erg)<br />   (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))<br />     (progn (vlax-put-property x "DialogTitle" "选择图形文件")<br />            (vlax-put-property x "Filename" "*.dwg")<br />            (vlax-put-property x "Filter" "*.dwg")<br />            (vlax-put-property x "MaxFileSize" 10000)<br />            ;; in lisp unbedingt notwendig, sonst kommt ne fehlermeldung von wegen zu wenig speicher<br />            (vlax-put-property x "Flags" 512) ;_ mehrer Dateien+explorer-design<br />            (vlax-put-property x "Action" 1) ;_ showopen-dialog  <br />            (setq erg (vlax-get-property x "Filename"))<br />     )<br />   )<br />   (if (/= erg "*.dwg")<br />     erg<br />     nil<br />   )<br /> )

ttthhh_hb

(setq x (vlax-create-object "MSComDlg.CommonDialog") 返回的值为nil啊。

后面的语句根本不执行。
xpsp2+2006

afeng0712

eachy 兄弟看如何解决呀？这个很实用的东西我需急用！

秋枫

楼上的：Eachy的代码可能需要手动注册一下那个ocx组件。RegSvr32 c:\xxx\comdlg32.ocx

下面的这个代码也可以试试：

2. 
   
3. [font=courier new]
   
4. ;; 秋枫，Windows XP下测试通过
   
5. (defun qf-winxp-getfiles (/ x r)
   
6.   (vl-load-com)
   
7.   (if (setq x (vlax-create-object "UserAccounts.CommonDialog"))
   
8.     (progn (vlax-put-property x 'Filter "Drawing Files|*.dwg|All Files|*.*")
   
9.            (vlax-put-property x 'FilterIndex 1)
   
10.            (vlax-put-property x 'Flags 512) ; 设置多选文件选项, 如不需要则删除此行
    
11.            (vlax-put-property x 'InitialDir "c:\")
    
12.            (setq r (vlax-invoke-method x 'ShowOpen))
    
13.            (if (= 0 r) nil (vlax-get-property x 'FileName))
    
14.     )
    
15.     nil
    
16.   )
    
17. )
    
18. [/font]

<br /> [font=courier new]<br /> ;; 秋枫，Windows XP下测试通过<br /> (defun qf-winxp-getfiles (/ x r)<br />   (vl-load-com)<br />   (if (setq x (vlax-create-object "UserAccounts.CommonDialog"))<br />     (progn (vlax-put-property x 'Filter "Drawing Files|*.dwg|All Files|*.*")<br />            (vlax-put-property x 'FilterIndex 1)<br />            (vlax-put-property x 'Flags 512) ; 设置多选文件选项, 如不需要则删除此行<br />            (vlax-put-property x 'InitialDir "c:\")<br />            (setq r (vlax-invoke-method x 'ShowOpen))<br />            (if (= 0 r) nil (vlax-get-property x 'FileName))<br />     )<br />     nil<br />   )<br /> )<br /> [/font]

eachy

MS Common Dialog: oCommmonDialog = CreateObject("MSComDlg.CommonDialog") && !!! You can't directly create this object without a development licence, so for dynamically doing it on another machine,



# re: How to use a windows dialog in your webpage  
posted at Wednesday, December 03, 2003 8:05 AM by Michael Harris
'MSComDlg.CommonDialog' is a licensed control. It works from client side IE hosted script only if a Microsoft dev tool (like VStudio) is installed on the client to provide a design time license.

狂刀

合并一下：）

2. 
   
3. ;; for Windows XP / winnt2k
   
4. ;; (xdl-getfiles) 选取多个文件，返回目录文件列表 （可惜是8字短文件名）.
   
5. (defun xdl-getfiles (/ x r y)
   
6.   (vl-load-com)
   
7.   (if (or (setq x (vlax-create-object "UserAccounts.CommonDialog"))
   
8.           (setq y (vlax-create-object "MSComDlg.CommonDialog") x y))
   
9.     (progn (vlax-put-property x 'Filter
   
10.              "cad文件|*.dwg;*.dxf
    
11.              |cad二次开发|*.lsp;*.fas;*.vbs;*.vlx;*.arx
    
12.              |图片|*.jpg;*.gif;*.bmp;*.tga;*.ttf
    
13.              |动画及影像|*.swf;*.gif;*.mov;*.dat;*.mpg
    
14.              |All Files|*.*")
    
15.            ;(vlax-put-property x 'FilterIndex 1)
    
16.            (if y (vlax-put-property x "MaxFileSize" 10000))
    
17.            (vlax-put-property x 'Flags 512) ; 设置多选文件选项, 如不需要则删除此行
    
18.            ;(vlax-put-property x 'InitialDir "c:\")
    
19.            (setq r (vlax-invoke-method x 'ShowOpen))
    
20.            (if (= 0 r) nil (vlax-get-property x 'FileName))
    
21.     )
    
22.   )
    
23. )
    

<br /> ;; for Windows XP / winnt2k<br /> ;; (xdl-getfiles) 选取多个文件，返回目录文件列表 （可惜是8字短文件名）.<br /> (defun xdl-getfiles (/ x r y)<br />   (vl-load-com)<br />   (if (or (setq x (vlax-create-object "UserAccounts.CommonDialog"))<br />           (setq y (vlax-create-object "MSComDlg.CommonDialog") x y))<br />     (progn (vlax-put-property x 'Filter<br />              "cad文件|*.dwg;*.dxf<br />              |cad二次开发|*.lsp;*.fas;*.vbs;*.vlx;*.arx<br />              |图片|*.jpg;*.gif;*.bmp;*.tga;*.ttf<br />              |动画及影像|*.swf;*.gif;*.mov;*.dat;*.mpg<br />              |All Files|*.*")<br />            ;(vlax-put-property x 'FilterIndex 1)<br />            (if y (vlax-put-property x "MaxFileSize" 10000))<br />            (vlax-put-property x 'Flags 512) ; 设置多选文件选项, 如不需要则删除此行<br />            ;(vlax-put-property x 'InitialDir "c:\")<br />            (setq r (vlax-invoke-method x 'ShowOpen))<br />            (if (= 0 r) nil (vlax-get-property x 'FileName))<br />     )<br />   )<br /> )<br />

我在xp和win2000下都可以运行，不知道其他人怎么样。
win2000下用eachy提供的代码原先就可以运行。

afeng0712

4楼的兄弟，手动注册RegSvr32 c:\xxx\comdlg32.ocx能否在LSP程序中实现？（自动注册好了），要不程序通用起来不方便，首次使用都得注册！
还有目录能否为上次打开的目录？就象高版本的CAD一样有自动保存路径的功能，这样每次打开总是先到上一次打开的路径下！

wkai

狂刀的代码还是无法在win2000下运行

afeng0712

对了，看能否象一般打开树木结构方式那样？目录一层一层往里进，再是文件。驱动器，文件夹，文件分开那样很慢！

Ea兄，烦把你联系方式告诉我好吗？我编程序涉及这方面问题，急想问你！急盼解决，几乎随时都在关心你们的答复，因为没有这方面的相关中文帮助目前我解决不了！
我的邮箱cwafeng@163.com

aeo

找了一晚上!!!!!!!!

http://www.codecomments.com/IE_Scripting/message315992.html

------------------------------------------
"MSComDlg.CommonDialog"
只要把我的附件abc.reg运行一下，就可以了.

谁把它写成自动加入注册表的，应该不难.




-----------------------------------
知识:
如何在 Internet Explorer 中使用授权的 ActiveX 控件
http://support.microsoft.com/default.aspx?kbid=159923

liuyj

在程序第一行后插入
(vl-registry-write
    "HKEY_CLASSES_ROOT\\Licenses\\4D553650-6ABE-11cf-8ADB-00AA00C00905"
    ""
    "gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"
)

狂刀

(vl-registry-write
"HKEY_CLASSES_ROOT\\Licenses\\4D553650-6ABE-11cf-8ADB-00AA00C00905"
""
""
)
我这样也照样能运行 多选对话框，why？
这个注册信息看来不像是关键

它山之石

最初由 狂刀 发布
[B](vl-registry-write
"HKEY_CLASSES_ROOT\\Licenses\\4D553650-6ABE-11cf-8ADB-00AA00C00905"
""
""
)
我这样也照样能运行 多选对话框，why？
这个注册信息看来不像是关键 [/B]

那可能是因为：

最初由 狂刀 发布
[B]
我在xp和win2000下都可以运行，不知道其他人怎么样。
win2000下用eachy提供的代码原先就可以运行。 [/B]

俺没那个前不能用。

狂刀

经测试，用vb5,vb6的comdlg32.ocx控件，返回的路径和文件名支持长文件名

wkai

导入reg还是不行！
我用win2000