ファイルの更新日付を過去に戻してログローテーションテストしないと!
ってときによく使ってるけど毎回このソースをWebで探してますが、はてなブログなのでブログを削除されたらと思い自分用としてメモしました。
ファイル更新日付をVBSで変更する、の使い方
ソースを保存したらそのファイルにドラッグするだけ。
ソースは次の通り。
ファイル更新日付をVBSで変更する
▼filedate.vbsとかで保存してください。
1234567891011121314151617181920212223242526272829303132 If WScript.Arguments.Length = 0 ThensMsg = "更新日時を変更したいファイルをドラッグし、このアイコンにドロップしてください"MsgBox sMsg, vbOKOnly + vbInformation, "使い方"ElsesFile = WScript.Arguments.Item(0)Set oFS = CreateObject("Scripting.FileSystemObject")If oFS.FileExists(sFile) ThenSet oFile = oFS.GetFile(sFile)sPath = oFile.ParentFolder & "\"sFileName = oFile.NamesCurrentDateTime = oFile.DateLastModifiedsNewDateTime = InputBox("更新日時をいつに変更しますか?", sFileName, sCurrentDateTime)If Len(sNewDateTime) > 0 ThenIf IsDate(sNewDateTime) ThensMsg = sFileName & " の更新日時を変更します" & vbCrLf & vbCrLfsMsg = sMsg & " 変更前: " & sCurrentDateTime & vbCrLfsMsg = sMsg & " 変更後: " & sNewDateTime & vbCrLf & vbCrLfsMsg = sMsg & "よろしいですか?"If MsgBox(sMsg, vbYesNo + vbQuestion, "確認") = vbYes ThenSet oShell = CreateObject("Shell.Application")Set oFolder = oShell.Namespace(sPath)Set oFolderItem = oFolder.ParseName(sFileName)oFolderItem.ModifyDate = sNewDateTimeEnd IfElseMsgBox "不正な日付です", vbOKOnly + vbInformation, "エラー"End IfEnd IfElseMsgBox "これはファイルではありません", vbOKOnly + vbInformation, "エラー"End IfEnd If
著作権について
deck-no-bow様に帰属します。
当サイトでは備忘録として引用符にて転載させていただいております。