Delete Old Files via VB script.

[NIM]

Dim oFSO, oFolder, oFiles, oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\TEST")
Set oFiles = oFolder.Files
for 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 if
next