[ファイルの更新日付を変更する]

C:\Temp\text.txt の更新日付を 2005/10/25 12:34:56 に変更します。

【ソースコード】

[tips0137.vbs]
Option Explicit
On Error Resume Next

Dim strFolderName   ' フォルダ名
Dim strFileName     ' ファイル名
Dim dtmModifyDate   ' 更新日付
Dim objShell        ' Shell オブジェクト
Dim objFolder       ' フォルダ情報
Dim objFile         ' ファイル情報

strFolderName = "C:\Temp"
strFileName = "Test.txt"
dtmModifyDate = CDate("2005/10/25 12:34:56")

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    Set objFolder = objShell.NameSpace(strFolderName)
    Set objFile = objFolder.ParseName(strFileName)

    objFile.ModifyDate = dtmModifyDate
    If Err.Number = 0 Then
        WScript.Echo strFolderName & "\" & strFileName & _
            " の更新日付を " & dtmModifyDate & " に変更しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If

Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFolder = Nothing
Set objShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0137.vbs
C:\Temp\Test.txt の更新日付を 2005/10/25 12:34:56 に変更しました。