写了一个可以修改文件的创建日期、最后修改日期、最后访问日期的DLL组件

 1   
 2'作者：慈勤强   
 3  
 4'Email:[email protected] Http://blog.csdn.net/cqq   
 5  
 6  
 7**'FileInfo 对象说明**   
 8  
 9  
10  
11'能够修改一个文件的创建日期、上次访问日期、最后修改日期   
12  
13'方法：setFileDT(strFileName As String,   
14  
15' strCreateDT As String,   
16  
17' strLastAccessDT As String,   
18  
19' strLastModifyDT As String)   
20  
21'传入参数：1 文件名（绝对路径）   
22  
23' 2 要修改的文件创建日期   
24  
25' 3 最后一次访问日期   
26  
27' 4 最后修改日期   
28  
29' 四个参数缺一不可，日期格式为 14 位，四位年+两位月+两位日+两位小时+两位分+两位秒   
30  
31'返回值： 1 修改成功 返回其他值表示修改失败    
32
33
34Dim intRet   
35  
36Set objFileInfo = Server.CreateObject("Cqq.FileInfo")   
37  
38intRet = objFileInfo.setFileDT("c:\db2.mdb","20110101010101","20010101010101","20010101010101")   
39  
40'如只想修改某个日期的话，其他参数只需为空即可   
41  
42'例如 intRet = objFileInfo.setFileDT("c:\db2.mdb","","","20010101010101") 则只修改最后修改日期   
43  
44If Cint(intRet)=1 Then   
45  
46Response.Write "修改日期成功"   
47  
48Else   
49  
50Response.Write "失败"   
51  
52End If   
53  
54Set objFileInfo=Nothing