Posted August 6, 200619 yr 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
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now