jiangjun 发表于 2004-11-24 22:41:00

[求助][讨论]请教vl-directory-files

<FONT face=黑体 size=2>请教</FONT>


<FONT face=黑体 size=2>(setq p(vl-directory-files "d:/"))</FONT>


<BR>能不能弹出对话框的形式来选择文件夹呢？？？

王咣生 发表于 2004-11-24 23:02:00

;;;Description:<BR>;;;This module's function allow the user to browse for a specific folder


(defun FolderBrowse (msg / obj folder path)<BR>       (vl-load-com)<BR>       (setq obj (vlax-create-object "Shell.Application"))<BR>       (setq folder (vlax-invoke-method obj 'BrowseForFolder 0 msg 1))<BR>       (if<BR>                       (vl-catch-all-error-p<BR>                                       (setq path<BR>                                       (vl-catch-all-apply<BR>                                                       '(lambda()<BR>               (vlax-get-property<BR>                               (vlax-get-property<BR>                                               folder 'self<BR>                               )<BR>                               'path<BR>               )<BR>                )<BR>                                       )<BR>                                       )<BR>                       )<BR>                       nil<BR>                       path<BR>       )<BR>)


调用方法:


(setq path (FolderBrowse       "请选择一个文件夹"))


(setq ls (vl-directory-files path))

jiangjun 发表于 2004-11-25 21:43:00

谢谢


我试一下

1028695446 发表于 2019-4-9 15:06:30

留个脚印，方便以后查看
页: [1]
查看完整版本: [求助][讨论]请教vl-directory-files