Microsoft menyarankan skrip di situs webnya .
Di bawah ini adalah versi modifikasi yang saya gunakan untuk kebutuhan saya.
Wscript.Echo "Starting log removal"
sLogFolder = "d:\retentiontest"
iMaxAge = 30 'in days
Set objFSO = CreateObject("Scripting.FileSystemObject")
set colFolder = objFSO.GetFolder(sLogFolder)
Wscript.Echo "Removing log files from folder: " & colFolder
For Each colSubfolder in colFolder.SubFolders
Set objFolder = objFSO.GetFolder(colSubfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
iFileAge = now-objFile.DateLastModified
if iFileAge > (iMaxAge+1) then
Wscript.Echo "Removing File: " & objFile.Name
objFSO.deletefile objFile, True
end if
Next
Next
Perhatikan bahwa saya telah berubah dari "DateCreated" menjadi "DateLastModified" karena tanggal yang berlawanan secara intuitif dapat lebih lambat dari yang terakhir diubah, seperti halnya dengan file yang disalin. Anda mungkin tidak ingin menghapus file yang baru saja diperbarui.
Kemudian jalankan dengan menggunakan cscript.exe (misalnya, cscript.exe d:\scripts\logRetentionScript.vbs
).