VBS复制当前文件夹中4个文件到指定文件夹
我要复制和X.VBS在同文件夹中的a.exe,b.exe,c.exe,d.exe四个文件到指定文件夹。应如何写X.vbs代码?可能是很简单的问题,但我没有一点基础。所以请...
我要复制和X.VBS在同文件夹中的a.exe,b.exe,c.exe,d.exe四个文件到指定文件夹。应如何写X.vbs代码?
可能是很简单的问题,但我没有一点基础。所以请回答者写出详细的代码。
也就是说我直接复制你写的代码保存为X.vbs就可以使用。谢谢
能解决问题的给予20分
比如a.exe在C:\Documents and Settings\Administrator\Local Settings\Temp
我想移到到C:\windows\sytem32内
这路径问题怎么解决?不是所有系统都装在C盘啊 展开
可能是很简单的问题,但我没有一点基础。所以请回答者写出详细的代码。
也就是说我直接复制你写的代码保存为X.vbs就可以使用。谢谢
能解决问题的给予20分
比如a.exe在C:\Documents and Settings\Administrator\Local Settings\Temp
我想移到到C:\windows\sytem32内
这路径问题怎么解决?不是所有系统都装在C盘啊 展开
2个回答
展开全部
set fso=createobject("scripting.filesystemobject")
fso.copyfile "a.exe","d:\"
fso.copyfile "b.exe","e:\"
fso.copyfile "a.exe","d:\"
fso.copyfile "b.exe","e:\"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
当然不是所有的系统都在C盘。。。
Set a=CreateObject("scripting.filesystemobject")
p=a.GetSpecialFolder(1)&"\"
c "a.exe"
c "b.exe"
c "c.exe"
c "d.exe"
Sub c(x)
on error resume next
err.raise a.CopyFile(x,p&x,true)
if err.number=70 then
msgbox"请求的操作需要提升权限"
end if
end sub
Set a=CreateObject("scripting.filesystemobject")
p=a.GetSpecialFolder(1)&"\"
c "a.exe"
c "b.exe"
c "c.exe"
c "d.exe"
Sub c(x)
on error resume next
err.raise a.CopyFile(x,p&x,true)
if err.number=70 then
msgbox"请求的操作需要提升权限"
end if
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询