2008年10月29日 星期三

findfile 檢查檔是否存在

;;1.檢查檔是否存在
(if (= (findfile "C:\\ahorng\\listdir.bat") nil)
(princ "找不到檔案")
(princ "找到檔案")
)

回傳: 找到檔案

;;2.回傳檔案位置
(findfile "acad.pgp") returns "C:\\Documents and Settings\\使用者名稱\\Application
Data\\Autodesk\\C3D 2008\\enu\\support\\acad.pgp"

沒有留言:

Search Google

Google

熱門文章