Option Explicit
On Error Resume Next
Dim strFolderName ' フォルダ名
Dim strFileName ' ファイル名
Dim dtmModifyDate ' 更新日付
Dim objShell ' Shell オブジェクト
Dim objFolder ' フォルダ情報
Dim objFile ' ファイル情報
strFolderName = "C:\Tmp"
strFileName = "IT_HotBackup.bat"
dtmModifyDate = CDate("2014/10/21 10: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
