手動更改文件的日期和時間

Question

我想通過調用SetFileTime或類似的東西在ASP Classic上手動更改指定時間的日期和時間。據我所知，ASP File Object提供了檢索文件創建修改時間的方法，但沒有提供實際設置它們的方法。

我該如何做到這一點？

Answer 1

我找到了答案比較快：

Sub ModifyLastAccessedDate(emlFilePath, newDate) 
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
    Set file = objFSO.GetFile(emlFilePath) 
    Set app = Server.CreateObject("Shell.Application") 
    Set folder = app.NameSpace(file.ParentFolder & "\") 
    Set fileModify = folder.ParseName(file.Name) 

    fileModify.ModifyDate = NewDate 

    Set objFSO = Nothing 
    Set file = Nothing 
    Set folder = Nothing 
    Set app = Nothing 
    Set fileModify = Nothing 
End Sub 

然後你只需

Call ModifyLastAccessedDate("C:\Folder\SomeFile.Txt","2013-03-05")

Answer 2

這裏所說的例程是在JScript中的例子，並再次在VB中，直接取Microsoft只是爲了後人（以及如何設置日期和時間字符串的另一個例子）：

<script language="JScript"> 
    function fnModifyDateGetSetJ() 
    { 
     var objShell = new ActiveXObject("shell.application"); 
     var objFolder2; 
     var ssfWINDOWS = 36; 

     objFolder2 = objShell.NameSpace(ssfWINDOWS); 
     if (objFolder2 != null) 
     { 
      var objFolderItem; 

      objFolderItem = objFolder2.ParseName("NOTEPAD.EXE"); 
      if (objFolderItem != null) 
      { 
       var szReturn; 

       szReturn = objFolderItem.ModifyDate; 
       objFolderItem.ModifyDate = "01/01/1900 6:05:00 PM"; 
      } 
     } 
    } 
</script> 

VB：

Private Sub fnModifyDateGetSetVB() 
    Dim objShell As Shell 
    Dim objFolder2 As Folder2 
    Dim ssfWINDOWS As Long 

    ssfWINDOWS = 36 
    Set objShell = New Shell 
    Set objFolder2 = objShell.NameSpace(ssfWINDOWS) 
     If (Not objFolder2 Is Nothing) Then 
      Dim objFolderItem As FolderItem 

      Set objFolderItem = objFolder2.ParseName("NOTEPAD.EXE") 
       If (Not objFolderItem Is Nothing) Then 
        Dim szReturn As String 

        szReturn = objFolderItem.ModifyDate 
        objFolderItem.ModifyDate = "01/01/1900 6:05:00 PM" 
       Else 
        'FolderItem object returned nothing. 
       End If 
      Set objFolderItem = Nothing 
     Else 
      'Folder object returned nothing. 
     End If 
    Set objFolder2 = Nothing 
    Set objShell = Nothing 
End Sub