Scripting

I'm not a scripting ace, but I think I'd go for the "Left" function to sort out the folders you want to delete.

http://www.devguru.com/technologies/vbscript/quickref/left.html

Thanks andemats

I have added a Left function as follows, but that didnt worked :(


If (Left(Cstr(oFolder), 3)) = "201" Then

If oFolder.DateLastModified < (Date() - iDaysOld) Then
oFolder.Delete(True)
End If

You've got two "If's" but only one "End If" what I can see.
You might have the second End If in the rest of the code.

What errors does the script give?

Thanks for the reply

Following is the script I have tried. It does'nt give me any error. But the script is not deleting the folders as required

Option Explicit
On Error Resume Next
Dim oFSO, oFolder, sDirectoryPath
Dim oFileCollection, oFile, sDir
Dim iDaysOld

' Specify Directory Path From Where You want to clear the old files

sDirectoryPath = "XXX"

' Specify Number of Days Old File to Delete

iDaysOld = 30

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectoryPath)
Set oFileCollection = oFolder.Files

For each oFile in oFileCollection

If (Left(Cstr(oFolder), 3)) = "201" Then

If oFolder.DateLastModified < (Date() - iDaysOld) Then
oFolder.Delete(True)
End If

End If
Next

Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing

First of all, you need to clarify exactly what you want the script to do because you refer to deleting folders but you're looping through the Files collection, then checking the .DateLastModified property of the containing folder! That will obviously always be the same for every file in the collection.

Also:
- you (and others) will find your code easier to maintain if you indent it, e.g.:For each oFile in oFileCollection
If (Left(oFolder.Path), 3) = "201" Then
If oFolder.DateLastModified < (Date() - iDaysOld) Then
oFolder.Delete(True)
End If
End If
Next- I always use DateDiff for comparing dates (If DateDiff("d", oFolder.DateLastModified, Date) >= iDaysOld Then)
- If you're going to turn off error handling (On Error Resume Next), then your code needs to check for any errors returned (If Err.Number <> 0 Then...). Otherwise, the code will do exactly what you have asked - it just Resumes execution at the Next statement.

You might want to remove the "On Error Resume Next" to get some errors.

EDIT: Ah! Good, Ian found this and sorted it out.