Experts Exchange connects you with the people and services you need so you can get back to work.
strRoot = "c:\temp"
strMask = "*.*"
blnSubFolders = False
intHours = 2
strCommand = "cmd /c @echo off & dir " & Chr(34) & _
strRoot & "\" & strMask & Chr(34) & " /a:-d /b"
If blnSubFolders Then
strCommand = strCommand & " /s"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec(strCommand)
Set objStdOut = objWshScriptExec.StdOut
Do Until objStdOut.AtEndOfStream
strFile = objStdOut.ReadLine
If Not blnSubFolders Then
strFile = strRoot & "\" & strFile
Set objFile = objFSO.GetFile(strFile)
If DateDiff("h", objFile.DateLastModified, Now) > intHours Then
WScript.Echo "Delete " & strFile
Open in new window
Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.
robocopy /sourcedire /targetdir /mov /MINAGE:n
del targetdir\*.* /F /Q
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.