Modify file/folder deletion script to delete folders only based on date.

' Create a FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
 
' Enter your folder to start deleting files from
startFolder = "R:\WEB BACKUPS\"
 
' Enter the names of folders to exclude from checking:
arrFoldersToExclude = Array("Sync")
strFoldersToExclude = ";" & Join(arrFoldersToExclude, ";") & ";"
 
' This sets the amount of days old for files to be, before
' they are deleted.  The number must be negative.
OlderThanDate = DateAdd("d", -45, Date)  ' 90 days (adjust as necessary)
ForceDelete = CDate("December 31, 2099")  ' trick: everything is older than this
 
' This calls the function that actually deletes the files.
DeleteOldFiles startFolder, OlderThanDate
 
Function DeleteOldFiles(folderName, BeforeDate)
   Dim folder, file, fileCollection, folderCollection, subFolder
 
         ' Get the folder to delete files from
         Set folder = fso.GetFolder(folderName)
 
      If InStr(LCase(strFoldersToExclude), ";" & LCase(folder.Name) & ";") = 0 Then
         ' Return a collection of all of the files in that folder
         Set fileCollection = folder.Files
         ' Go through each file....
         For Each file In fileCollection
                   ' ... to check if the DateLastModified value is before
                   ' the minimum age of files to delete.
               if file.DateLastModifed < BeforeDate and Right(LCase(file.Name),4) <> ".zip" then
                  fso.DeleteFile(file.Path), True
               End If
         Next
      End If
      ' Get the next collection of SubFolders to go through
    Set folderCollection = folder.SubFolders
 
      ' Go through each SubFolder
      For Each subFolder In folderCollection
            ' Check if the current folder name is in the strFoldersToExclude string
            If InStr(LCase(strFoldersToExclude), ";" & LCase(fso.GetFolder(foldername).Name) & ";") = 0 Then
                  ' If it's not, delete the files from that folder
                  DeleteOldFiles subFolder.Path, BeforeDate
				  ' additionally, if the folder is old, force a delete of everything.
				  '  (except zip files)
				  if subFolder.DateLastModifed < BeforeDate then
                     DeleteOldFiles subFolder.Path, ForceDelete
				  end if
            End If
      Next
' if the folder is empty - delete it
 If folder.Files.Count = 0 And _
    folder.SubFolders.Count = 0 Then
   
   'folder.delete
   'to test script, comment out the line above ^, and
   'uncomment the line below v
    WScript.Echo "Delete folder <" & folderName & ">"
 
 End If
End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63: