NIM Posted August 6, 2006 Share Posted August 6, 2006 Dim oFSO, oFolder, oFiles, oFileSet oFSO = CreateObject("Scripting.FileSystemObject")Set oFolder = oFSO.GetFolder("C:\TEST")Set oFiles = oFolder.Filesfor each oFile in oFiles if oFile.DateLastModified > DateAdd("d", -14, Now()) then if MsgBox("Delete " & oFile.Path, vbYesNo) = vbYes then ' Omit 'True' in the next line if ReadOnly should be respected oFile.Delete True end if end ifnext Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.