[原创函数]使用标准vlisp显示选择文件夹对话框的方法

秋枫

2. 
   
3. ;; 本代码仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
   
4. ;; 用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认.
   
5. ;; ==================================================================
   
6. ;; 作者：秋枫，参考了灯火的VBA程序
   
7. ;; 用法：(qf_getFolder msg)
   
8. ;; 例子：(qf_getFolder "选择文件夹:")
   
9. ;; 返回值：字符串，文件夹路径，如果点了cancel, 返回nil
   
10. 
    
11. (defun qf_getFolder (msg / WinShell shFolder path catchit)
    
12.   (vl-load-com)
    
13.   (setq winshell (vlax-create-object "Shell.Application"))
    
14.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
    
15.   (setq
    
16.     catchit (vl-catch-all-apply
    
17.               '(lambda ()
    
18.                  (setq shFolder (vlax-get-property shFolder 'self))
    
19.                  (setq path (vlax-get-property shFolder 'path))
    
20.                )
    
21.             )
    
22.   )
    
23.   (if (vl-catch-all-error-p catchit)
    
24.     nil
    
25.     path
    
26.   )
    
27. )
    

<br /> ;; 本代码仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊<br /> ;; 用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认.<br /> ;; ==================================================================<br /> ;; 作者：秋枫，参考了灯火的VBA程序<br /> ;; 用法：(qf_getFolder msg)<br /> ;; 例子：(qf_getFolder "选择文件夹:")<br /> ;; 返回值：字符串，文件夹路径，如果点了cancel, 返回nil<br /> <br /> (defun qf_getFolder (msg / WinShell shFolder path catchit)<br />   (vl-load-com)<br />   (setq winshell (vlax-create-object "Shell.Application"))<br />   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />   (setq<br />     catchit (vl-catch-all-apply<br />               '(lambda ()<br />                  (setq shFolder (vlax-get-property shFolder 'self))<br />                  (setq path (vlax-get-property shFolder 'path))<br />                )<br />             )<br />   )<br />   (if (vl-catch-all-error-p catchit)<br />     nil<br />     path<br />   )<br /> )<br />

锋十七

谢谢楼主，需要消化一下

灰石Jeremy

不错不错，多谢大神

龙龙仔

;;再提供"选择档夹"别一方法,配合Expresstool
(arxload "acetutil.arx" NIL)
(setq PREFIX_DWG
       (strcat
         (strcase (acet-ui-pickdir
                    "选择目录"
                    (vl-string-right-trim "\\" (getvar "dwgprefix"))
                    "移除未使用之具名参考"
                  )
         )
        ; "\\"
       )
)

龙龙仔

秋枫

这个程序是从灯火同志的vbscript程序改写过来的。即activex方法的vlisp表达。所以我对这个对象并不多了解一点。关于这点我猜也许可以向论坛上的南子或河伯求教吧？他们都是高手，呵呵。

我用vba自带的对象查看器查了一下，见附件，也许有点用。

秋枫

龙龙仔

谢谢你!!但像程序中shFolder对象性质数据要查询那里??那些物件才会有传回值???

像以下都沒有傳回值,看來大部份函數都不合vlisp用
(setq computer(vlax-invoke-method WINSHELL 'findcomputer))
(setq explore(vlax-invoke-method WINSHELL 'explore "c:"))
(setq findfiles(vlax-invoke-method WINSHELL 'findfiles))

秋枫

efan2000

VL中的vlax-invoke-method，如果调用ActiveX对象时，相当于VB中的调用过程和函数的用法。VB中的过程是没有返回值的，则在VL中仅这样调用就可以：(vlax-invoke-method WINSHELL 'findcomputer)，而函数有返回值，用setq computer(vlax-invoke-method WINSHELL 'findcomputer))获取返回值。

龙龙仔

河伯

Windows文件系统有两道暗门，一道是Scripting.FileSystemObject,另一道是Shell.Application，应用Vlisp的朋友有时为不能使用Windows API而遗憾，实际上用AcitiveX走暗门更简单有趣，Shell.Application是API的AcitiveX实现形式，一般在脚本编程的书里讲到，如果不怕脑袋瓜疼，下面这本可以看看：

微软公司核心技术书库：Win32开发人员参考库第5卷Windows Shell  
出版社：机械工业出版社
译作者：（美）David Iseminger著