vba怎么获得文件路更新时间

lixun005

我想在ACCESS里获得一个图片的更新时间,请高手帮帮忙,谢谢了!

andymark

图片的更新? 不是很明白

lixun005

我想得你到文件的日期,生成或更新日期

andymark

帮助中有祥细的解释
DateCreated 属性
         

描述

返回指定文件或文件夹的创建日期和时间。只读。

语法

object.DateCreated

object 总是一个 file 或Folder对象。

说明

下面的代码用一个文件举例说明了 DateCreated 属性的用法：

Sub ShowFileInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = "Created: " & f.DateCreated
    MsgBox s
End Sub

DateLastModified 属性
         

描述

返回最后一次修改指定文件或文件夹的日期和时间。只读。

语法

object.DateLastModified

object 总是一个 file 或 Folder 对象。

说明

下面的代码用一个文件举例说明了 DateLastModified 属性的用法：

Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified  
    MsgBox s, 0, "File Access Info"
End Sub

lixun005

谢谢了,我找到一个函数
FileDateTime
例:
sj=FileDateTime("D:\ACC\SummaryTop Websites.gif")

不过还是谢谢你了!