请教：如何用LSP得到子目录的创建时间

毛竹筒

如题，请各位指教。在下先谢谢了

毛竹筒

(vl-file-systime filename)只能读出普通文件的修改时间，而不能读出子目录的创建时间。请问各位高手，有什么招数

龙龙仔

3. ;; FolderInfos
4. ;; Returns informations of folder
5. ;; Arguments [Typ]:
6. ;;   Fil = Foldername, "C:\\PROGRAM FILES\\AUTOCAD 2002" [STR]
7. ;;   Mde = Conversion mode, "MO/DD/YYYY H:MMam/pm" [STR]
8. ;; Notes:
9. ;;   - Requires ScrRun.dll.
10. ;; USAGE: (FOLDERINFOS "C:\\PROGRAM FILES\\AUTOCAD 2002" "MO/DD/YYYY H:MMam/pm")
11. (defun FOLDERINFOS (FIL MDE / FILSYS VAL)
12.   (setq FILSYS (vlax-create-object "Scripting.FileSystemObject")
13. VAL    (vlax-get (vlax-invoke FILSYS "GetFolder" FIL)
14.     "DateCreated"
15.         )
16.   )
17.   (vlax-release-object FILSYS)
18.   (setvar "USERR1"
19.    (if (minusp (- VAL 2415019.0))
20.      (+ VAL 2415019.0)
21.      VAL
22.    )
23.   )
24.   (setvar "USERS1" MDE)
25.   (menucmd "M=$(edtime,$(getvar,USERR1),$(getvar,USERS1))")
26. )

;; FolderInfos ;; Returns informations of folder ;; Arguments [Typ]: ;;   Fil = Foldername, "C:\\PROGRAM FILES\\AUTOCAD 2002" [STR] ;;   Mde = Conversion mode, "MO/DD/YYYY H:MMam/pm" [STR] ;; Notes: ;;   - Requires ScrRun.dll. ;; USAGE: (FOLDERINFOS "C:\\PROGRAM FILES\\AUTOCAD 2002" "MO/DD/YYYY H:MMam/pm") (defun FOLDERINFOS (FIL MDE / FILSYS VAL)   (setq FILSYS (vlax-create-object "Scripting.FileSystemObject") VAL    (vlax-get (vlax-invoke FILSYS "GetFolder" FIL)     "DateCreated"         )   )   (vlax-release-object FILSYS)   (setvar "USERR1"    (if (minusp (- VAL 2415019.0))      (+ VAL 2415019.0)      VAL    )   )   (setvar "USERS1" MDE)   (menucmd "M=$(edtime,$(getvar,USERR1),$(getvar,USERS1))") )

毛竹筒

非常感谢龙龙仔！程序很好用。

不过程序我不太看得懂，能否给我讲解一下，谢谢！