Most of the time we use script to play with folders in production or in local computer, here is a script to housekeep your folder keeping a retention period of required days.

Option Explicit 
Const srcPath = "\\directory\Sub-directory" 
Const daysLimit= 60
Dim objFSO 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Sub HousekeepFolder(srcPath, dateLimit)
        Dim objFolderToHousekeep
        Set objFolderToHousekeep = objFSO.GetFolder(srcPath) 
        On Error Resume Next 
        Dim objFile, objFolder 
        For Each objFile In objFolderToHousekeep.Files 
        	If DateDiff("d", CDate(objFile.DateLastModified), Now) > daysLimit Then
    		         objFSO.DeleteFile objFile 
    	        End If 
            Next 
        For Each objFolder In objCurrentFolder.subFolders 
        	HousekeepFolder objFolder, daysLimit
        Next 
End Sub