如何比较文件的生成时间和系统时间差？又有新疑问，等待大侠指教～！

haha_s

如何写个函数，比较某个文件夹下的文件生成时间和系统时间相差不超过一小时？
先谢谢各位大侠了～   ^_^   （问题已解决，见7楼）

新疑问：
我想判断系统时间和文件时间差是否超过一小时
而f.datecreated取回的是一个完整时间，包括日期、时分秒，而且是一个对象
但是系统时间通过date、time取到的是两个字符串
问题1.类型都不一致，如何比较
问题2.怎么样才能让他们相减的单位是小时呢？多谢大侠指教啊～～

[ 本帖最后由 haha_s 于 2008-10-21 14:24 编辑 ]

hsjzfling

用kernel32.dll来取文件生成时间lpCreationTime好了，然后和系统时间相减

假装不在

楼上的方法复杂点。这个是访问文件夹的，如果要访问文件的，例如text的，方法需要另写
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\xiaoi_log")    '文件夹路径
   S = S & f.DateCreated                          '文件创建时间
   S = S  & f.DateLastAccessed             '文件最后访问时间
   S = S & f.DateLastModified                '文件最后修改时间
msgbox s

然后系统的时间，直接拿data就可以了

tmqq

不在的方法不错，受教了

LittleDuck

学习了

zbyufeifei

Attributes 属性 |  DateCreated 属性 |DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | SubFolders 属性 | Type 属性

应用于：File 对象 | Folder 对象

有这可以用的，就不用调Dll来做了，简单方便啊

haha_s

不在大侠的方法果真灵验，多谢呵呵
问题解决，代码如下：
Dim fso, f,ShowFileInfo
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile("D:\StarTeam\ff.bmp")
   ShowFileInfo = "Created: " & f.DateCreated
   msgbox ShowFileInfo

但是又有一个疑问，我想判断系统时间和文件时间差是否超过一小时
而f.datecreated取回的是一个完整时间，包括日期、时分秒
但是系统时间通过date、time取到的是两个字符串
怎么样才能让他们相减的单位是小时呢？多谢大侠指教啊～～

[ 本帖最后由 haha_s 于 2008-10-21 14:11 编辑 ]

hsjzfling

转换为时间格式，然后和now相减再乘以24就行了

假装不在

你发信息给我，就帮你回复下吧。
Dim fso, f,ShowFileInfo
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile("D:\StarTeam\ff.bmp")
   ShowFileInfo =  f.DateCreated    '这里如果有其它字符，会导致出错，在使用hour转换的时候
   The_Hour=Hour(ShowFileInfo )
if  The_Hour-Hour(now)>1 then
  msgbox "超过一个小时"
else
  msgbox "没超过一个小时"
end if

haha_s

多谢楼上的不在TX哈
问题解决！

假装不在

解决就好，来朵花先 ，好久没人送花了。

fwlikexbx

屁股 我来给你送花

假装不在

原帖由 fwlikexbx 于 2008-10-22 10:34 发表
屁股 我来给你送花

为什么

tiancaim

支持

hxf

牛人呀