Скопировать файлы за вчерашний день в другую папку на VB

Скопировать файлы созданные/измененные за вчерашний день в другую папку на Visual Basic

dim fso,f,file,files,source,destination
dim ago
dim sdata
ago=date-1
set fso=createobject("scripting.filesystemobject")
source="C:\chsnippets"
destination="c:\temp\"
set f=fso.getfolder(source)
set files=f.files
for each file in files
sdata=file.datelastmodified
REM MsgBox "This is " & left(sdata,10) & " with "  & left(ago,10)
if left(ago,10) = left(sdata,10) then
fso.copyfile file, destination,true
end if
next