i have a weird issue with this script.
it doesn’t delete the files…
i adjusted it a little bit, and when i do a wscript.echo i see it checks all the files, and when i do some other wscript echo’s i also see that the datediff for example gives a value 63 and my number of days is 60, so when i do a 63 > 60… it says it isn’t..
veryy strange.
Does anyone see the problem?

Option Explicit
‘On Error Resume next

‘Variables
Dim objStartFolder, objParameters, Datafiles, DataFolder
Dim objAPI, fso, modified, verschil
Dim NumberOfDays, oBag
Dim StateDataType, strReturn

‘Set objAPI = CreateObject(“MOM.ScriptAPI”)

Set objParameters = WScript.Arguments
objStartFolder = objParameters(0) ‘The 0 indicates FolderName is the first argument
NumberOfDays = objParameters(1) ‘The 1 indicates the amount of days

Set fso = CreateObject(“Scripting.FileSystemObject”)

Set DataFolder = fso.GetFolder(objStartFolder)
Set DataFiles = DataFolder.Files
For Each Modified in DataFiles
verschil = DateDiff(“D”, Modified.DateLastModified, Now)
If verschil > NumberOfDays Then
wscript.echo “verwijderd : ” & Modified
‘Modified.Delete
‘else
‘wscript.echo verschil & “niet ouder dan 2 maanden : ” & Modified
end if
‘wscript.echo verschil & ” : ” & NumberOfDays

Next

I am using below query to delete files,

Dim Fso

Dim Directory

Dim Modified

Dim Files

Set Fso = CreateObject(“Scripting.FileSystemObject”)

Set Directory = Fso.GetFolder(“D:\”)

Set Files = Directory.Files

For Each Modified in Files

If DateDiff(“D”, Modified.DateLastModified, Now) > 1 Then Modified.Delete

Next

i received below error when i executed above query please can anyone help me.

D:\delold.vbs(9, 24) Microsoft VBScript compilation error: Invalid character

# Script DeleteOld.txt
var str folder, diff, list, file
lf -r -n “*” $folder (($ftype==”f”) AND ($fmtime $list
while ($list “”)
do
lex “1″ $list > $file
# system del (“\”"+$file+”\”")
echo -e “DEBUG: Deleted file ” $file
done

Script is in biterscripting ( http://www.biterscripting.com ). Copy and paste the script code into file “C:/Scripts/DeleteOld.txt”. Call it as follows.

script “C:/Scripts/DeleteOld.txt” folder(“C:/Testing”) diff(“30000000″)

The above script call will delete files older (modified earlier) than 30 days, 00 hrs, 00 mins, 00 sec from folder “C:/Testing” and all its subfolders (and sub-sub folders).

script “C:/Scripts/DeleteOld.txt” folder(“C:/Testing”) diff(“240000″)

will delete files older (modified earlier) than 24 hrs.

script “C:/Scripts/DeleteOld.txt” folder(“C:/Testing”) diff(“3000″)

will delete files older (modified earlier) than 30 mins and 00 seconds.

script “C:/Scripts/DeleteOld.txt” folder(“C:/Testing”) diff(“0″)

will delete files older (modified earlier) than 0 seconds – that is it will delete all the files. This is same as not specifying the diff() argument at all.

etc.

Test the script first in a test folder until you understand how it works. I have commented out (#) the system del command that actually deletes the files. Once you understand the script, you can uncomment that command.

Dim Fso

Dim Directory

Dim Modified

Dim Files

Set Fso = CreateObject(“Scripting.FileSystemObject”)

Set Directory = Fso.GetFolder(“I:\Backup Files”)

Set Files = Directory.Files

For Each Modified in Files

If DateDiff(“D”, Modified.DateLastModified, Now) > 3 Then Modified.Delete

Next

Thanx
Priyesh

option explicit

Dim strStartFolder
Dim iExpiredAge
dim objFSO, objStartFolder

strStartFolder=”c:\testdelete\”
iExpiredAge=90

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objStartFolder = objFSO.GetFolder(strStartFolder)

call DeleteFromFolder(objStartFolder,iExpiredAge)

Sub DeleteFromFolder(objFolder,iAge)

dim colFolders, colFiles
dim objSubFolder, objFile

Set colFolders = objFolder.SubFolders
For Each objSubFolder In colFolders
Call DeleteFromFolder(objSubFolder,iAge)
Next

Set colFiles = objFolder.Files
For Each objFile In colFiles
If DateDiff(“D”, objFile.DateLastModified, Now) > iAge Then objFile.Delete
Next

End Sub