Delete files from the network based on file path and date/time parameters.
This script came in handy when I was trying to delete some old XML documents from the network. The best part about this script was we were able to schedule to execute this script from windows scheduler. I created this script with the help of Michael Scott.
'*******************************************************************************************
' Created BY : Srinivasan Prasanna
' Company : Company ABC
' Date : 09/05/2007
' Logic : This script is run as a batch program to remove the files from the
' selected folder
' : This script was created with the help of an internet resource - Michael
' Scott
'*************************************************************************************
Dim fso, fldr, fc, f1 'fldname, usrname, srcFile
set FSO = Wscript.CreateObject("scripting.FileSystemObject")
fldname = "D:\HJS\DCA\Peoplesoft89\XML\Export" '<---- change to top directory Const DateofFile = -30 '<----- age of deleted files
DeleteFiles = FSO.GetFolder(fldname)
Set fldr = fso.GetFolder(fldname)
Recurse fldr
Set fldr = Nothing
Set fso = Nothing
wscript.echo "Files Deleted Successfully"
Wscript.Quit
Public Sub Recurse( ByRef fldr)
dim subfolders,files,folder,file
Dim srcFile
Set subfolders = fldr.SubFolders
Set files = fldr.Files
For Each srcfile in files
If DateDiff("d", Now, srcFile.DateLastModified) < DateofFile Then
FSO.DeleteFile srcFile, True
End If
Next
'************** Recurse all of the subfolders.
For Each folder in subfolders
Recurse folder
Next
'************** Deletes empty folders
if (fldr.files.count = 0) and (fldr.subfolders.count) = 0 then
on error resume next
fldr.delete
exit sub
end if
End Sub
You can also download this script from the google document site
