DelOlder.vbs

Delete files older than N days from a folder.

cscript delolder.vbs "D:\Demo\log files" 90

Option Explicit
'on error resume next
    Dim objFS
    Dim strDirectoryPath
    Dim objFolder
    Dim objFileCollection
    Dim objFile
    Dim intDaysOld

strDirectoryPath = WScript.Arguments.Item(0)
intDaysOld = WScript.Arguments.Item(1)

' Check the number of days is 1 or greater (otherwise it will just delete everything)
If (intDaysOld<=0) Then WScript.quit -1
wscript.echo "Delete files more than " & intDaysOld & " days old:"

If (IsNull(strDirectoryPath)) Then WScript.quit -1
wscript.echo "Delete from: " & strDirectoryPath
wscript.echo ""

    Set objFS = CreateObject("Scripting.FileSystemObject")
    set objFolder = objFS.GetFolder(strDirectoryPath)
    set objFileCollection = objFolder.Files

    For each objFile in objFileCollection
        If objFile.DateLastModified < (Date() - intDaysOld) Then
                Wscript.Echo objFile.Name & " " & objFile.DateLastModified
                'objFile.Delete(True)
        'To delete for real, remove the ' from the line above
        End If
    Next

'Clean up
    Set objFS = Nothing
    Set objFolder = Nothing
    Set objFileCollection = Nothing
    Set objFile = Nothing 

“The long run is a misleading guide to current affairs. In the long run, we are all dead” ~ John Maynard Keynes


© Copyright SS64.com 1999-2014
Some rights reserved