{"id":8655,"date":"2006-11-29T11:26:00","date_gmt":"1999-11-29T20:00:00","guid":{"rendered":"https:\/\/aidanfinn.com\/?p=8655"},"modified":"2006-11-29T11:26:00","modified_gmt":"1999-11-29T20:00:00","slug":"delete-old-files","status":"publish","type":"post","link":"https:\/\/aidanfinn.com\/?p=8655","title":{"rendered":"Delete Old Files"},"content":{"rendered":"
I’ve been working with Brightstor 11.5 SP2 Disk Staging Option lately.\u00a0 We’ve configured it to purge old staging data according to a policy.\u00a0 Unforunately, we’ve found that it only automatically purges data if the associated backup ran perfectly.\u00a0 <\/em>Of course, being a CA product, this is a rare event.\u00a0 Hence our disk fills up with unwanted data and prevents future backups when the disk fills.<\/div>\n
\u00a0<\/div>\n
My solution is to purge old data using a script.\u00a0 I found something very similar to what I wanted on Tek-Tips<\/a> by a poster called "monsterjta".\u00a0 After a little tweaking, I had what I wanted:<\/div>\n
\u00a0<\/div>\n
Option Explicit
on error resume next
\u00a0\u00a0\u00a0 Dim oFSO
\u00a0\u00a0\u00a0 Dim sDirectoryPath
\u00a0\u00a0\u00a0 Dim oFolder
\u00a0\u00a0\u00a0 Dim oFileCollection
\u00a0\u00a0\u00a0 Dim oFile
\u00a0\u00a0\u00a0 Dim iDaysOld
\u00a0\u00a0\u00a0 Dim CurDir<\/div>\n
\u00a0<\/div>\n
‘Definitions
\u00a0\u00a0\u00a0 Set oFSO = CreateObject("Scripting.FileSystemObject")
\u00a0\u00a0\u00a0 sDirectoryPath = CreateObject("WScript.Shell").CurrentDirectory<\/div>\n
\u00a0<\/div>\n
‘Set the age (in days) for files to be deleted in E:D2DFulls
\u00a0\u00a0\u00a0 iDaysOld = 6
<\/em><\/strong>\u00a0\u00a0\u00a0 sDirectoryPath = "E:D2DFulls"
<\/em><\/strong>\u00a0\u00a0\u00a0 set oFolder = oFSO.GetFolder(sDirectoryPath)
\u00a0\u00a0\u00a0 set oFileCollection = oFolder.Files
\u00a0\u00a0\u00a0 DelOldFiles oFileCollection, iDaysOld<\/div>\n
\u00a0<\/div>\n
‘Set the age (in days) for files to be deleted in E:D2DDiffs
\u00a0\u00a0\u00a0 iDaysOld = 5<\/em><\/strong>
\u00a0\u00a0\u00a0 sDirectoryPath = "E:D2DDiffs"
<\/em><\/strong>\u00a0\u00a0\u00a0 set oFolder = oFSO.GetFolder(sDirectoryPath)
\u00a0\u00a0\u00a0 set oFileCollection = oFolder.Files
\u00a0\u00a0\u00a0 DelOldFiles oFileCollection, iDaysOld<\/div>\n
Function DelOldFiles (oFileCollection, iDaysOld)<\/div>\n
‘Walk through each file in this folder collection.
\u00a0\u00a0\u00a0 For each oFile in oFileCollection
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If oFile.DateLastModified < (Date() – iDaysOld) and NOT oFile.name = "HEADER.CTF" Then
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 oFile.Delete(True)
‘ The following line is commented out.\u00a0 It can be run for testing.
‘\u00a0\u00a0\u00a0\u00a0 wscript.echo "This file should be deleted: " & oFile.name
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If
\u00a0\u00a0\u00a0 Next
End Function<\/div>\n
\u00a0<\/div>\n
This script runs as a scheduled task on the backup server.\u00a0 The highlighted sections are set up to match the data retention\/purge policy in Disk Staging Option.<\/div>\n","protected":false},"excerpt":{"rendered":"

I’ve been working with Brightstor 11.5 SP2 Disk Staging Option lately.\u00a0 We’ve configured it to purge old staging data according to a policy.\u00a0 Unforunately, we’ve found that it only automatically purges data if the associated backup ran perfectly.\u00a0 Of course, being a CA product, this is a rare event.\u00a0 Hence our disk fills up with … Continue reading “Delete Old Files”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[1],"tags":[],"class_list":["post-8655","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"aioseo_notices":[],"jetpack_featured_media_url":"","amp_enabled":true,"_links":{"self":[{"href":"https:\/\/aidanfinn.com\/index.php?rest_route=\/wp\/v2\/posts\/8655","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/aidanfinn.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/aidanfinn.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/aidanfinn.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/aidanfinn.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=8655"}],"version-history":[{"count":0,"href":"https:\/\/aidanfinn.com\/index.php?rest_route=\/wp\/v2\/posts\/8655\/revisions"}],"wp:attachment":[{"href":"https:\/\/aidanfinn.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=8655"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/aidanfinn.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=8655"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/aidanfinn.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=8655"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}