中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]求复制和删除文件夹的VBS代码

cnds
初级用户

积分 37
发帖 36
注册 2008-12-2
状态离线

『楼主』: [已结]求复制和删除文件夹的VBS代码

求大虾帮忙写一个VBS，要求：将C:\WINDOWS\StormII这个文件夹（注意：是文件夹，不是文件），复制到C:\Program Files，直接覆盖已经存在的文件，不提示。然后删除C:\WINDOWS\StormII，之后删除VBS本身。我在百度找的都不行。谢谢。下面这个是我写的，不行.

Const OverWriteFiles = True

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFolder "C:\windows\StormII" , "C:\Program Files" , OverWriteFiles

objFSO.deletefolder "C:\windows\StormII of Warcraft\Interface"

set fso=wscript.createobject("scripting.filesystemobject")

fso.deletefile "C:\Docume~1\Administrator\「开始」菜单\程序\启动\delete.vbs"

[ Last edited by HAT on 2009-1-8 at 22:59 ]

2009-1-4 00:15

newxso
初级用户

l i u s s

积分 73
发帖 101
注册 2008-9-17
来自 GZ
状态离线

『第 2 楼』:

用VBS复制移动文件或文件夹，有时会出现权限不够问题，如果目标目录上存在同名且具有只读属性的文件或文件夹，则覆盖将失败。倒不如BAT简便：

@echo off

xcopy /e/h/r/y "C:\windows\StormII" "C:\Program Files\StormII"

rd /s/q "C:\windows\StormII"

del /q %0

如果硬是要VBS，可以把 xcopy 和 rd 行内容套到 VBS 的 WshShell.run “cmd /c ... 句上：

Set WshShell = CreateObject("WScript.Shell")

WshShell.run "cmd.exe /c xcopy /e/h/r/y ""C:\windows\StormII"" ""C:\Program Files\StormII""",0,true

WshShell.run "cmd.exe /c rd /s/q ""C:\windows\StormII""",0,true

Set f = CreateObject("Scripting.FileSystemObject")

f.GetFile(WScript.ScriptFullName).Delete

[ Last edited by newxso on 2009-1-5 at 11:40 ]

此帖被 +2 点积分点击查看详情

2009-1-5 10:53

cnds
初级用户

积分 37
发帖 36
注册 2008-12-2
状态离线

『第 3 楼』:

谢谢newxso的帮助。

2009-1-8 22:20

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: