なぜかいまどき実践Windows Scripting Host
バックアップフォルダなどはデータ量の増加を除いて、常に増え続けるバックアップじゃダメよね。
じゃふるいファイルは常に消しましょうってのが以下のスクリプト。
ちなみに今本番環境に組み込みました。フルバックアップ直後に過去データを抹消しています。
ちなみに本番はもうちょっとだけ変なことしていますが。割愛(^^;;
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim objFolder
Set objFolder = fso.GetFolder(".")
Dim objFiles
Set objFiles = objFolder.Files
Dim NowDate
NowDate = Now()
Dim OneWeekOldDate
OneWeekOldDate = DateAdd("d", -7, NowDate)
Dim objFile
For Each objFile in objFiles
'1週間を経過したファイルは消す
If ( objFile.DateLastModified < OneWeekOldDate ) Then
Call objFile.Delete()
End If
Next
Set objFile = Nothing
Set objFiles = Nothing
Set objFolder = Nothing
Set fso = Nothing