关于FSO按时间查询的问题！！！

[nhr]

用目录直读做了一个搜索本地文件的东东。但如果输入文件夹名，可以搜索但，但是我想加入按时间来查询。但怎么都弄不成功能。

如图：http://www.e0898.cn/114.jpg

我就是想文件的创建时间如果在开始时间和结束时间的在查询中给搜出来！！

[nhr]

咱没人来帮我哇！！顶起来！！！

[renjun24]

up too

[jacklinchen]

set fso=server.CreateObject("scripting.filesystemobject")
set objFolder=fso.GetFolder(Server.mappath(Folders))'创建文件夹对象
set objFiles=objFolder.Files
for each objFile in objFiles
fcreate = objFile.DateCreated '创建时间 上次修改时间DateLastModified 上次保存时间DateLastAccessed
'''然后判断是否要取出
next

[nhr]

fcreate = objFile.DateCreated

我是用输入的起始和结束时间和fcreate比较呀。
if cdate(session("starttime"))<=cdate(Temp) and cdate(Temp)<=cdate(session("starttime")) then

可是好像不行。。。没法比较出大小呀。

[nhr]

哎。还没人回啊？伤心啊。。

[learsu]

收藏别人的。来自CSDN的高手。
Dim fso, FileProperties, s
Dim DateLocalFile As Date
Dim DateServerFile As Date

Set fso = CreateObject("Scripting.FileSystemObject")

Set FileProperties = fso.GetFile(OldExeFile)
s = FileProperties.DateLastModified
DateLocalFile = CDate(s)


Set FileProperties = fso.GetFile(NewExeFile)
s = FileProperties.DateLastModified
DateServerFile = CDate(s)


If IsDate(DateLocalFile) = True And IsDate(DateServerFile) = True Then
If DateLocalFile < DateServerFile Then
。。。。。。。。
endif
endif

[nhr]

谢谢，不知能不能用。先结了帖子。。