想获取某个文件的创建时间、修改时间、访问时间，应该怎么做？

masterlong

如题

caoyin

用 Scripting.FileSystemObject 的 Folder对象，

属性:

　　DateCreated
　　返回该文件夹的创建日期和时间
　　DateLastAccessed
　　返回最后一次访问该文件夹的日期和时间
　　DateLastModified
　　返回最后一次修改该文件夹的日期和时间

masterlong

呼呼累死我了
在版主的提示下编出下面这段代码

(defun c:getfileATT()
 (setq filename (getfiled "选择文件" "" "*" 0))
 (setq fso (vlax-Create-Object "Scripting.FileSystemObject"))
 (setq file (vlax-invoke-method fso 'Getfile filename))
 (setq d1 (vlax-get-property folder 'DateCreated))
 (setq d2 (vlax-get-property folder 'DateLastAccessed))
 (setq d3 (vlax-get-property folder 'DateLastModified))
 (prin1 (list d1 d2 d3))
(princ)
)

最后的结果是(40054.7 40286.6 40054.7)

这个日期格式似乎叫儒略日期？？

那么

再怎么转换成公元呢？

或者如何直接读出公元制呢

masterlong

setq d1 、d2 、d3 那几句里的folder应为file

笔误啊

cqu20104225

请问一下，楼主知道怎么将这个日期转换成公元日期了么？

灰石Jeremy

+2416481再转换

cqu20104225

灰石Jeremy 发表于 2022-2-21 15:30
+2416481再转换

加上了如何转换呢？