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

jiangjun

请教 (setq p(vl-directory-files "d:/"))
能不能弹出对话框的形式来选择文件夹呢？？？

王咣生

;;;Description:
;;;This module's function allow the user to browse for a specific folder (defun FolderBrowse (msg / obj folder path)
(vl-load-com)
(setq obj (vlax-create-object "Shell.Application"))
(setq folder (vlax-invoke-method obj 'BrowseForFolder 0 msg 1))
(if
(vl-catch-all-error-p
(setq path
(vl-catch-all-apply
'(lambda()
(vlax-get-property
(vlax-get-property
folder 'self
)
'path
)
)
)
)
)
nil
path
)
) 调用方法: (setq path (FolderBrowse "请选择一个文件夹")) (setq ls (vl-directory-files path))

jiangjun

谢谢


我试一下

1028695446

留个脚印，方便以后查看