- 积分
- 1491
- 明经币
- 个
- 注册时间
- 2004-5-8
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
楼主 |
发表于 2004-10-11 22:56:00
|
显示全部楼层
我不知道是调用的什么函数,只知道像是VBA的
如(网上抄的,秋风大虾的),请指教,谢谢
(defun getFolder (msg / WinShell shFolder path catchit) (vl-load-com) (setq winshell (vlax-create-object "Shell.Application")) (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1) ) (setq catchit (vl-catch-all-apply '(lambda () (setq shFolder (vlax-get-property shFolder 'self)) (setq path (vlax-get-property shFolder 'path)) ) ) ) (if (vl-catch-all-error-p catchit) nil (if (/= "\\" (substr path (strlen path))) (setq path (strcat path "\\")) path ) ) ) |
|