VBS怎么复制自身到启动项

ww0000

此脚本将自身复制VBS到启动目录
set fso = createobject("scripting.filesystemobject")  '创建文件系统对象
set ws = createobject("wscript.shell")   '创建wsh对象
pt = ws.specialfolders("startup") & "\"   '获取启动目录路径
set file = fso.getfile(wscript.scriptfullname)   '获取vbs脚本自身
file.copy pt   '将脚本复制到启动目录

此脚本将定时跳出提醒对话框
set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下！" & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline
for i = 1 to 100 '100为提醒的次数
WScript.Sleep(1000*60*1) '每1分钟提醒一次
msgbox alerttext,4096,alerttitle
next



请问，第一个代码怎么结合到第二个代码中，使第二个代码运行后自动复制到启动项？
我象下面这样写对吗？为什么不能运行？

set fso = createobject("scripting.filesystemobject")  '创建文件系统对象
set ws = createobject("wscript.shell")   '创建wsh对象
pt = ws.specialfolders("startup") & "\"   '获取启动目录路径
set file = fso.getfile(wscript.scriptfullname)   '获取vbs脚本自身
file.copy pt   '将脚本复制到启动目录
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下！" & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline
for i = 1 to 100 '100为提醒的次数
WScript.Sleep(1000*60*1) '每1分钟提醒一次
msgbox alerttext,4096,alerttitle
next

ww0000

哈哈，原来已经成功了！！