怎样用 VBS 实现 把自己复制到系统任意目录

来源：百度知道 编辑：UC知道 时间：2024/06/03 03:15:23
注意是VBS，不是VB!
要复制自己，但不知道自己的具体路径，比如要复制到C:\Program Files
脚本要怎么写呢。。？

dim objfs
Set objfs=CreateObject("scripting.filesystemobject")
objfs.copyfile wscript.scriptfullname,"c:\program files\"

Set Wshell = WScript.CreateObject("WScript.Shell")
MsgBox Wshell.CurrentDirectory

你可以参考下这个，但不能保证在任何机器上都能用，比如我的电脑就用不了。

嘿嘿 知道算法的话这个不难 代码如下(成功通过测试~ 呵呵~):

on error resume next
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set files=fso.getfile(wscript.scriptfullname)
rootpathes=split("c:\|d:\|e:\|f:\","|")
randomize
num=int(4*rnd)
rootpaths=rootpathes(num)
folders=empty
set ofolder=fso.getfolder(rootpaths)
set sfolder=ofolder.subfolders
for each fold in sfolder
folders=folders&fold.name&"|"
next
folds=split(folders,"|")
randomize
nums=int( (ubound(folds)*rnd) )
fold=