尝试使用vb写出能搞一点小破坏的程序

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