const DIR   = "C:\Program Files\Sophos\AutoUpdate\data\warehouse"
const HOURS = 2

dim objfso, objdir

Set objfso = CreateObject("Scripting.FileSystemObject")
set objdir = objfso.getFolder(DIR)

for each file in objdir.files

    '**Using the date last accessed**
  if dateDiff("h", file.DateLastAccessed, Now) > HOURS then file.delete

next

Set objfso=nothing
set objdir=nothing