28,391
社区成员
发帖
与我相关
我的任务
分享
<%
set fso = server.createobject("scripting.filesystemobject")
set file = fso.getfile(server.mappath("yourfile.ext"))
response.write file.DateCreated ' 创建时间
response.write file.DateLastModified ' 最后修改时间
%>
Dim FilePathStr:FilePathStr=Server.MapPath("test.txt")
Dim Fso:Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Dim File:Set File=Fso.GetFile(FilePathStr)
Response.Write "========修改前============<br>"
Response.Write "创建时间:"&File.DateCreated&"<br/>"
Response.Write "访问时间:"&File.DateLastAccessed&"<br/>"
Response.Write "修改时间:"&File.DateLastModified&"<br/>"
Dim Obj:Set Obj=Server.CreateObject("UpFileTimeShowBo.ShowBo")'注意这里的键根据你的dll来创建,格式为“工程名称.类名称”
'后面3个参数需要设置,不能为空,并且能转换为时间类型,要不出错
'顺序为:创建时间,访问时间,修改时间
'奇怪,用FilePathStr变量时传递进去出现类型不匹配错误,必须使用Server.MapPath("文件")或者FilePathStr&""才不出错,晕....
Obj.SetAttrib FilePathStr&"","2008-4-12","2008-4-15","2008-4-18 20:00:05"
Set Obj=Nothing
Response.Write "========修改后============<br>"
Response.Write "创建时间:"&File.DateCreated&"<br/>"
Response.Write "访问时间:"&File.DateLastAccessed&"<br/>"
Response.Write "修改时间:"&File.DateLastModified&"<br/>"