ファイルメンテナンス（削除）
ファイルメンテナンス(削除) VBScript
一定期間過ぎたらファイルを削除するスクリプト
システム運用などをしているとログファイルや一時ファイルなどが沢山生成されます。
こういったファイルはバックアップを取ったり、削除したりすることになります。
本スクリプトはあるフォルダにあるファイルが保存日数を経過していたら削除するスクリプトになります。
使用方法
FileDel.vbsとして作成したとします。
第一引数：保存日数（ここで指定した日数を超えているファイルを削除）
第二引数：検索対象とするフォルダパス
第三引数：本スクリプトの処理ログ（処理ログはスクリプト内で定義）
X:\> FileDel.vbs 30 C:\Logfile FileDel.log
スクリプト本文
Option Explicit
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' 変数定義
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Dim starttime
Dim SYear,sYY,SMonth,sDay,sHour,sMinute,sSecond
Dim DelInt,DifPath,LogName
Dim fso,src,oTsLog,corArg
Dim LogFileDir,LogFileName,TargetPath
Dim sDate,DateCreate
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' 引数代入
' 引数�� 保存日数（CIntで整数型に変換）
' 引数�� 検索対象フォルダ
' 引数�� 処理結果ログファイル名
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
DelInt = CInt(WScript.Arguments(0))
DifPath = WScript.Arguments(1)
LogName = WScript.Arguments(2)
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' 日付生成（実行時日付より）
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
StartTime = Now
sYear = Year(StartTime)
if len(Month(StartTime)) = 1 then
sMonth = "0" & Month(StartTime)
else
sMonth = Month(startTime)
End if
if len(Day(StartTime)) = 1 then
sDay = "0" & Day(StartTime)
else
sDay = Day(startTime)
End if
if len(Hour(StartTime)) = 1 then
sHour = "0" & Hour(StartTime)
else
sHour = Hour(startTime)
End if
if len(Minute(StartTime)) = 1 then
sMinute = "0" & Minute(StartTime)
else
sMinute = Minute(startTime)
End if
if len(Second(StartTime)) = 1 then
sSecond = "0" & Second(StartTime)
else
sSecond = Second(startTime)
End if
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' ログフォルダ／ログファイル作成
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
LogFileDir = "C:\VBS\Log\"
LogFileDir = LogFileDir & "\" & sYear & sMonth & sDay
LogFileName = LogFileDir & "\" & LogName & "_" & sYear & sMonth & sDay & sHour & sMinute & sSecond & ".log"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(LogFileDir) = False Then
fso.CreateFolder LogFileDir
End if
Set oTsLog = fso.CreateTextFile(LogFileName)
oTsLog.WriteLine("【" & Now & " File削除処理を開始します】")
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' ファイルの更新日時取得
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Set src = fso.GetFolder(DifPath)
Set TargetPath = Nothing
Set DateCreate = Nothing
For each src in src.Files
sDate = src.DateLastModified
DateCreate = DateDiff("d", sDate, Date)
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' 保存日数を超過していた場合はファイルを削除
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
if (DateCreate >= DelInt) Then
TargetPath = DifPath & "\" & src.Name
fso.DeleteFile TargetPath,True
oTsLog.WriteLine("【File " & TargetPath & " を削除しました】")
End if
Next
oTsLog.WriteLine("【" & Now & " File削除処理を終了します】")
oTsLog.close