VBScript clearner.vbs - Delete File Based on Last Modified Date and Filter by File Extension

-
A VB script, i forgot where i got it.

===

'******************************************************************
' naam: Cleanup.vbs
' function:
' - Cleanup old files depending on the age of x days
' - Check for file extension
' - Possible to recurse in subfolders
' - For clustered drives, will check first if the drive exists on that server
' author: SDR
'******************************************************************
Option Explicit
Dim wshShell
Dim FilePath, Retention, FileFilter, FilterExt, SubFilter
Dim fso, Folder, DriveLetter
Set wshShell = wscript.createobject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'*******************************************************************
' Fill in below variables
' ex.
' FilePath = "D:\BACKUP"
' Retention = 2
' note: Retention is in days
' If you need to filter by extention, set the FileFilter to True and fill in FilterExt
' If you need to also filter in the subfolders, set SubFilter to True
'*******************************************************************
FilePath = "D:\Test"
Retention = 5
FileFilter = True
FilterExt = "ARCHIVE"
SubFilter = True

'*******************************************************************
' Do not change below!
'*******************************************************************

DriveLetter = Left(FilePath, 1)

If fso.DriveExists(DriveLetter) Then
' Cleanup the files
DelFiles FilePath, Retention, FileFilter, SubFilter
End If

Sub DelFiles(Dir, days, DelFilter, SubFoldersFilter)
Dim DelDate, FSO, Folder, SubFolder, SubDir, Files, File, FileDate, Ext, FileDelete, ErrorDelete
Set FSO = createobject("scripting.filesystemobject")
On Error Resume Next
Set Folder = FSO.GetFolder(Dir)

DelDate = NOW - days
On Error Goto 0
Set Files = Folder.Files
Set SubFolder = Folder.SubFolders
For each File in Files
FileDate = File.DateLastModified
Ext = FSO.GetExtensionName(File)
On Error Resume Next
If DelFilter = True then
If FileDate <= DelDate and Ext = FilterExt then
File.Delete
End If
Else
If FileDate <= DelDate then
File.Delete
End If
End If
On Error Goto 0
Next
If SubFoldersFilter = True then
For each SubDir in SubFolder
DelFiles SubDir.Path, days, DelFilter, SubFoldersFilter
Next
End If
Set Files = Nothing
Set Folder = Nothing
Set FSO = Nothing
End Sub

===

//alak

Comments

Post a Comment

Popular posts from this blog

SAP: Segregate Different SMTP Mail Server Based on Sender Domain

-
Image
  Requirement : An SAP server, with a single Productive client shared by multiple company codes. Each CoCode would have their own domain (FQDN), and any email send out, for example PO to vendors, are to be sent using each individual CoCode SMTP mail server. Solution Steps: 1. Configure multiple SMTP nodes in Tx SCOT, limiting each node with a Sender Group 2. Set different Sender Group (CDG) parameters for each user of each CoCode (Tx SU01 > Parameters) 3. Test using SCOT's Routing Test feature 4. Profit Detail Step: Logon to SAP system and configure multiple SMTP Node, can use  Continue with SCOT Wizard. Once you get multiple Nodes (as per below screenshot), double click any of them,  In this example, we double click on the "SECOND" node. And then click on "Set" button for the address type you want to configure (that would most probably be for INT type) And click the Pencil icon for setting the Sender Group Here we can set based on FQDN or any string. We are ...
Read more

SAP Client Copy Error: Errors occurred during export of container object FINB-TR-DERIVATION

-
 Reference from: https://www.consultoria-sap.com/2010/03/client-copy-derivation-rule-tables-are.html TL;DR - Execute report ABADRCHECK with selected 'DELSTEPS' //alak ==== Client copy is completed with status "Post-Processing Required". There is an error in log for object FINB-TR-DERIVATION: DA300 "No active nametab exists for *some db table*" Name of db table is usually with naming convention: xxyyyysssmmmnnnn (xx - application class, yyyy - strategy ID, sss - system indicator, mmm - client, nnnn - sequence number) These db tables are part of some instance of derivation tool in your system and are used to store Derivation Rule Values. Other terms ABADR, FINB_TR_CC_EXIT, FINB_TR_CC_EXIT_TARGET, DA 300, DA300, CC, SCC9, SCCL, SCC3 Reason and Prerequisites During processing CC there was huge workload into your system. CC processcreates new tables to store copied derivation rules. This is done in parallel asynchronous process. But due to workload into system, t...
Read more

Quick Dirty Script for Checking Oracle Data Gurad Gap and Emailing it

-
 Situation: primary DB: prd_CCC standby DB: prd_WWW file 1: gap-check.bat @echo off cls echo. echo. echo This script checks for Archive Logs at prd_ccc and Applied Logs at prd_www echo. echo Querying prd_ccc (Primary) echo select max(sequence#) "Primary" from v$archived_log where archived='YES';|sqlplus -s / as sysdba echo Querying prd_www (Standby) echo select max(sequence#) "Standby" from v$archived_log where applied='YES';|sqlplus -s / as sysdba echo. DGMGRL / "show configuration" date /t && time /t && hostname && whoami file 2: emailer.ps1 $Username      = "username" $EmailPassword = "password" $today = Get-Date $Username = $Username $EmailTo = "adam@jasabyte.com"  $EmailFrom = "server@jasabyte.com" $Body = Get-Content .\status.log -Raw $Subject = "PRIMARY/STANDBY DB GAP - $today" $SMTPServer = "mail.smtp2go.com"  $SMTPMessage = New-Object System.Net.Mai...
Read more