设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2178|回复: 4
打印 上一主题 下一主题

[模块/函数] vba怎么获得文件路更新时间

[复制链接]
跳转到指定楼层
1#
发表于 2008-3-14 10:52:15 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我想在ACCESS里获得一个图片的更新时间,请高手帮帮忙,谢谢了!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
5#
 楼主| 发表于 2008-3-14 12:03:52 | 只看该作者
谢谢了,我找到一个函数
FileDateTime
例:
sj=FileDateTime("D:\ACC\SummaryTop Websites.gif")

不过还是谢谢你了!
4#
发表于 2008-3-14 11:27:19 | 只看该作者
帮助中有祥细的解释
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
3#
 楼主| 发表于 2008-3-14 11:14:50 | 只看该作者
我想得你到文件的日期,生成或更新日期
2#
发表于 2008-3-14 11:06:36 | 只看该作者
图片的更新? 不是很明白
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-13 02:37 , Processed in 0.113603 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表