Code: Select all
const TargetFolder = ""c:\targetfolder\"
const MaxAge = 60
Dim FSO, fsFolder, item
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fsFolder = fso.GetFolder(TargetFolder)
For each item in fsFolder.Files
If DateDiff("n", Item.DateLastModified, Date+Time)>MaxAge
Then Item.Delete
End If
NextCode: Select all
Option Explicit
' **
------------------------------------------------------------------------
' ** -- Description: Deletes files older than a specified number of days
' ** -- from the folder identified.
' ** --
' ** -- Parameters: 1 - The folder that is to cleaned out
' ** -- 2 - The number of days old the file must be before
' ** -- they are deleted.
' ** --
' ** -- e.g. To clean out files older than 5 days from the c:\temp folder you would have:
' ** -- cscript.exe "path\CleanUpFolder.vbs" c:\temp 5
' ** --
' ** -- Called by:
' ** -- Calls:
' ** --
' ** -- Created: 16/07/03 by Paul Pettigrew
' ** --
' ** -- Modified:
' ** --
' **
------------------------------------------------------------------------
Dim objFSO
Dim objFolder
Dim objFileCollection
Dim objFile
Dim colArguments
Dim strFolderPath
Dim strDays
Dim intDays
Dim blnContinue
Dim dteCutoff
blnContinue = False
' ** -- Read in the Command line parameters
Set colArguments = Wscript.Arguments
If colArguments.Count = 2 Then
strFolderPath = colArguments(0)
strDays = colArguments(1)
' ** -- Check that the parameters look reasonable
If Len(strFolderPath) > 0 Then
If Len(strDays) > 0 Then
intDays = 0 - CInt(strDays)
blnContinue = True
End If
End If
End If
If blnContinue = True Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
' ** -- Check if the specified Folder exists
If objFSO.FolderExists(strFolderPath) Then
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objFileCollection = objFolder.Files
' ** -- Calculate the Cutoff date
dteCutoff = DateAdd("D", intDays, Now)
' ** -- Loop through the Folder looking for the old files
For each objFile in objFileCollection
If objFile.DateLastModified < dteCutoff Then
objFile.Delete True
End If
Next
' ** -- Clean Up
Set objFile = Nothing
Set objFileCollection = Nothing
Set objFolder = Nothing
End If
Set objFSO = Nothing
End If
Yes, I know, found it by searching and it is directly related to the script Paul posted...KS-Soft wrote:Its better to create new thread than find some 9 years old...
RMA is 6.10, runs as service as administrator from a domain accountKS-Soft wrote: So you set "D:\IT\Scripts\CleanOldFiles.vbs" as parameter of Execute external program action? While RMA returns error related to "C:\WINDOWS\system32"D:\IT\Scripts\CleanOldFiles.vbs"?
RMA version?
Regards
Alex
Code: Select all
cannot open file "D:\IT\scripts\cleanoldfiles.vbs D:\CISCO_Backups 5". the filename, directory name, or volume label syntax is incorrect