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

scaaa

LSP语言如何获取文件夹时间属性？

在LSP语言中有获取文件时间属性的命令（命令：vl-file-systime ），求教各位，LSP语言如何获取文件夹时间属性？

nonsmall

使用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.DateCreated
End Function

nonsmall

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:

(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
)

scaaa

非常感谢！！！！

狂刀无痕

2. (defun c:test()
3.   (setq fn "点击保存确认目录选择")
4.   (setq path (vl-prin1-to-string (vl-string-right-trim fn (getfiled "选择目录" fn " " 1))))
5.   (vla-eval (vlax-get-acad-object)
6.     (strcat "thisdrawing.SetVariable "USERS1",(CStr (CreateObject("Scripting.FileSystemObject").Getfolder(" path ").DateCreated))"))
7.   (getvar "USERS1")
8. )

(defun c:test()   (setq fn "点击保存确认目录选择")   (setq path (vl-prin1-to-string (vl-string-right-trim fn (getfiled "选择目录" fn " " 1))))   (vla-eval (vlax-get-acad-object)     (strcat "thisdrawing.SetVariable "USERS1",(CStr (CreateObject("Scripting.FileSystemObject").Getfolder(" path ").DateCreated))"))   (getvar "USERS1") )

1. 命令: TEST
2. "2008-6-6 21:51:19"

复制代码

2. (defun c:test2()
3.   (vl-load-com)
4.   (setq MSSC (vlax-create-object "MSScriptControl.ScriptControl"))
5.   (vlax-put MSSC "Language" "VBScript")
6.   (setq str
7. "Set shell = CreateObject("Shell.Application")
8. Set selFolder = shell.BrowseForFolder(0, "选择目录", 0, 512)
9. selPath = selFolder.Self.Path
10. ret = CStr(CreateObject("Scripting.FileSystemObject").Getfolder(selpath).DateCreated)
11. msgbox ret")
12.   (vlax-invoke-method MSSC 'EXECUTESTATEMENT STR)
13.   (setq STR (vlax-invoke MSSC 'eval "ret"))
14.   (vlax-release-object MSSC)
15.   STR
16. )

(defun c:test2()   (vl-load-com)   (setq MSSC (vlax-create-object "MSScriptControl.ScriptControl"))   (vlax-put MSSC "Language" "VBScript")   (setq 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")   (vlax-invoke-method MSSC 'EXECUTESTATEMENT STR)   (setq STR (vlax-invoke MSSC 'eval "ret"))   (vlax-release-object MSSC)   STR )

1. 命令: TEST2
2. "2008-3-19 1:47:01"

复制代码

命令名改为PATHDate和PATHDate2，源码打包下载：

hnjzwql

hen hao xiexie !

jxphklibin

很好，顶起来吧。

illcyt

狂刀无痕 发表于 2008-10-20 00:21
命令名改为PATHDate和PATHDate2，源码打包下载：

不过的源码，谢谢分享

sicky111

很不错，支持狂刀。