Kopier filer/subfoldere fra en mappe til en anden mappe

Jeg er ved lave en vbs fil der skal kopiere filer/foldere der er sidst ændret til en backup mappe
Men det jeg har lavet virker ikke rigtig
er der nogen derude der mon kan hjælpe mig

Jeg har følgende kode
Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.Getfolder("c:\upload\") 

Dim dato
dato = cstr(Date)   
datemod = split(cstr(f1.DateLastAccessed), " ")   
if datemod(0) = dato then
    fso.CopyFolder "c:\upload\*", "d:\backup\"        'copy the folder that has been accessed resently
else
'Make a txt file with the date's   
Set MyFile = fso.CreateTextFile("D:\backup\testfile.txt", True)
    MyFile.WriteLine(dato)
    MyFile.WriteLine(datemod(0))
end if