作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

打包下载 http://www.topronet.com/fileinfo.rar


下面是在 asp 中使用的例子：



<%
'作者：慈勤强

'Email:[email protected]  Http://blog.csdn.net/cqq


'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

%>

相关软件：