Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Set objShell = CreateObject("WScript.Shell") strProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%") strFolder = strProfile & "Cookies" intDaysOld = 60 dteDate = DateAdd("d", intDaysOld, Now) Set objFSO = CreateObject("Scripting.FileSystemObject") For Each objFile In objFSO.GetFolder(strFolder).Files If objFile.DateLastModified < dteDate Then On Error Resume Next objFSO.DeleteFile objFile.Path, True Err.Clear On Error GoTo 0 End If Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.