I am trying to delete folders which are 3 days old. Folder size is more than 400MB. There are around 6-7 folders in this location. But the script i tried is deleting 1-2 folders.
I have used the below code in my VBS file.

strFolderPath = “C:TestBuilds” ‘Folder Path
strLogFolderPath=”C:TestBuildsLogs”
NumberOfDays = 3 ‘Anything older than this many days will be removed

On Error Resume Next
Dim fso,objFolder,objFile,objSubfolder,objLogFolder
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set objFolder = fso.GetFolder(strFolderPath)
Set objLogFolder = fso.GetFolder(strLogFolderPath)

‘DELETE all subfolders in Folder Path older than Number of days
For Each objSubfolder In objFolder.Subfolders
If objSubFolder.Name = “Logs” Then
‘ Set objSubFolder= Nothing
Else If DateDiff(“d”, objSubfolder.DateCreated,Now) > NumberOfDays Then
objSubfolder.Delete True
Wait 20
End If
End If
Next

‘Delete all the folders in Log folder
For Each objSubfolder In objLogFolder.Subfolders
If DateDiff(“d”, objSubfolder.DateCreated,Now) > NumberOfDays*5 Then
objSubfolder.Delete True
End If
Next

Set fso=Nothing
Set objFolder=Nothing
Set objLogFolder=Nothing
Set objSubfolder=Nothing

Can anyone suggest me on this.

- Durga Prasad

Thank you Troy and Labnuke99.