dim fso,f,file,files,source,destination,s
dim ago
dim sdata

ago=date-1
set fso=createobject("scripting.filesystemobject")
source="x:\13"
destination="c:\temp"
set f=fso.getfolder(source)
set files=f.files

for each file in files
sdata=file.datelastmodified
if left(ago,2) = left(sdata,2) then
dim fso2
set fso2=createobject("scripting.filesystemobject")
fso2.copyfile file, destination,true
end if
next