[转载]一个可以修改文件的创建日期 最后修改日期 最后访问日期的DLL组件
下面是在 asp 中使用的例子：<%
'作者：慈勤强
'Email:cqq1978@Gmail.com [url]Http://blog.csdn.net/cqq[/url]
'FileInfo 对象说明
'能够修改一个文件的创建日期、上次访问日期、最后修改日期
'方法：setFileDT(strFileName As String,
' strcreateDT As String,
' strLastAccessDT As String,
' strLastmodifyDT As String)
'传入参数：1 文件名（绝对路径）
' 2 要修改的文件创建日期
' 3 最后一次访问日期
' 4 最后修改日期
' 四个参数缺一不可，日期格式为 14 位，四位年+两位月+两位日+两位小时+两位分+两位秒
'返回值： 1 修改成功 返回其他值表示修改失败
Dim intRet
Set objFileInfo = Server.createObject("Cqq.FileInfo")
intRet = objFileInfo.setFileDT("c:\db2.mdb","20110101010101","20010101010101","20010101010101")
'如只想修改某个日期的话，其他参数只需为空即可
'例如 intRet = objFileInfo.setFileDT("c:\db2.mdb","","","20010101010101") 则只修改最后修改日期
If Cint(intRet)=1 Then
Response.Write "修改日期成功"
Else
Response.Write "失败"
End If
Set objFileInfo=Nothing
%>
ps:好东东啊！^_^
下载：[url]http://www.neeao.com/lbs/attachments/month_200412/13_033742_olesfileinfo.rar[/url]
页:
[1]