Const OverwriteExisting=True
set shell=createobject("wscript.shell")
msgbox "点击"
currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
dim fso,fld
set fso = createobject("scripting.filesystemobject")
'set fld = fso.createfolder(currentpath+"\文件夹")
set fso1 = createobject("scripting.filesystemobject")
fso1.CopyFile currentpath+"\王者皮肤启动器.vbs",currentpath+"\文件夹"
'Source: 要拷贝的源文件的路径。
'Destination: 目标文件夹的路径。
'shell.run currentpath+"\王者皮肤启动器.vbs",1,true