[求助]：AUTOLISP能编出目录树的对话框吗

wu9602089

这是想用AUTOLISP编，不是VC或是其它软件。

zhang8755

不用编，用ACTIVEX调用即可

2. 
   
3. ;|  目录浏览对话框
   
4. 用法: (vldos-browsedir PromptString[STRING])
   
5.         (vldos-writefile NIL)
   
6.   参数1: 提示字符串, 如果是 nil, 缺省为 "Select Folder"
   
7. 说明:
   
8.     显示目录浏览对话框
   
9. 返回值:
   
10. [成功]: 返回所选目录路径. 如果用户选择取消, 返回 NIL
    
11. [失败]: NIL
    
12. |;
    
13. (Defun vldos-browsedir (msg / WinShell shFolder path catchit rtn)
    
14.   (if (null MSG)
    
15.     (setq MSG "Select folder")
    
16.   )
    
17.   (if (setq winshell (vlax-create-object "Shell.Application"))
    
18.     (progn
    
19.       (setq shFolder
    
20.                      (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
    
21.             catchit
    
22.                      (vl-catch-all-apply
    
23.                        '(lambda        ()
    
24.                           (setq shFolder (vlax-get-property shFolder 'self))
    
25.                           (setq path (vlax-get-property shFolder 'path))
    
26.                         )
    
27.                      )
    
28.       )
    
29.       (vlax-release-object shFolder)
    
30.       (vlax-release-object winshell)
    
31.       (if (vl-catch-all-error-p catchit)
    
32.         (setq rtn nil)
    
33.         (setq rtn (vldos-formatpath path))
    
34.       )
    
35.     )
    
36.   )
    
37.   rtn
    
38. )

<br /> ;|  目录浏览对话框<br /> 用法: (vldos-browsedir PromptString[STRING])<br />         (vldos-writefile NIL)<br />   参数1: 提示字符串, 如果是 nil, 缺省为 "Select Folder"<br /> 说明:<br />     显示目录浏览对话框<br /> 返回值:<br /> [成功]: 返回所选目录路径. 如果用户选择取消, 返回 NIL<br /> [失败]: NIL<br /> |;<br /> (Defun vldos-browsedir (msg / WinShell shFolder path catchit rtn)<br />   (if (null MSG)<br />     (setq MSG "Select folder")<br />   )<br />   (if (setq winshell (vlax-create-object "Shell.Application"))<br />     (progn<br />       (setq shFolder<br />                      (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)<br />             catchit<br />                      (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 />       (vlax-release-object shFolder)<br />       (vlax-release-object winshell)<br />       (if (vl-catch-all-error-p catchit)<br />         (setq rtn nil)<br />         (setq rtn (vldos-formatpath path))<br />       )<br />     )<br />   )<br />   rtn<br /> )