[求助]lsp语言如何获取文件夹时间属性？
 

[求助]lsp语言如何获取文件夹时间属性？
www.dimcax.com
[求助]lsp语言如何获取文件夹时间属性？lsp语言如何获取文件夹时间属性？
在lsp语言中有获取文件时间属性的命令（命令：vl-file-systime ），求教各位，lsp语言如何获取文件夹时间属性？
d
使用win api
datecreated 属性
返回指定的文件或文件夹的创建日期和时间。只读。
object.datecreated
object 应为 file 或 folder 对象的名称。
说明
以下代码举例说明如何使用 datecreated 属性：
function showfileinfo(filespec) dim fso, f set fso = createobject("scripting.filesystemobject") set f = fso.getfile(filespec) showfileinfo = "创建：" & f.datecreatedend function
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
datelastmodified 属性
返回指定的文件或文件夹的上次修改日期和时间。只读。
object.datelastmodified
object 应为 file 或 folder 对象的名称。
说明
以下代码举例说明如何使用 datelastmodified 属性：
function showfileaccessinfo(filespec) dim fso, f, s set fso = createobject("scripting.filesystemobject") set f = fso.getfile(filespec) s = ucase(filespec) & "<br>" s = s & "创建时间：" & f.datecreated & "<br>" s = s & "上次访问时间：" & f.datelastaccessed & "<br>" s = s & "上次修改时间：" & f.datelastmodified showfileaccessinfo = s end function
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
转为lisp:
(defun c:test ( / path fso folder dd)
(setq path (my-browse-folder "请选择一个文件夹" ""))
(setq fso (vlax-create-object "scripting.filesystemobject"))

(setq folder (vlax-invoke-method fso 'getfolder path))
(vlax-dump-object folder t)
(setq dd (vlax-get-property folder 'datecreated))
)
(defun my-browse-folder (msg path / sh fld folderobject result)
(vl-load-com)
(setq sh (vla-getinterfaceobject (vlax-get-acad-object)
"shell.application"))
(setq fld (vlax-invoke-method sh 'browseforfolder
0
msg ; dialogue box message
512 ; bif_nonewfolderbutton
;;; path ; path start
)
)
(vlax-release-object sh)
(if fld
(progn
(setq folderobject (vlax-get-property fld 'self))
(setq result (vlax-get-property folderobject 'path))
(vlax-release-object fld)
(vlax-release-object folderobject )
result
)
);if
)
change your life style.
d
非常感谢！！！！
d
( c:test()
( fn "点击保存确认目录选择")
( path ( ( fn ( "选择目录" fn " " 1))))
(vla-eval ()
( "thisdrawing.setvariable \"users1\",(cstr (createobject(\"scripting.filesystemobject\").getfolder(" path ").datecreated))"))
( "users1")
)
命令: test
( c:test2()
()
( mssc ( "msscriptcontrol.scriptcontrol"))
(vlax-put mssc "language" "vbscript")
( str
"set shell = createobject(\"shell.application\")
set selfolder = shell.browseforfolder(0, \"选择目录\", 0, 512)
selpath = selfolder.self.path
ret = cstr(createobject(\"scripting.filesystemobject\").getfolder(selpath).datecreated)
msgbox ret")
( mssc 'executestatement str)
( str (vlax-invoke mssc 'eval "ret"))
( mssc)
str
)
命令: test2
请使用winrar软件打开rar压缩文件。