中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 对比删除多余的文件、文件夹

cqruirui
新手上路

积分 6
发帖 2
注册 2008-5-2
状态离线

『楼主』: 对比删除多余的文件、文件夹

dim sdir,ddir
'远程目录
sdir="d:\netgames\魔域(测试用)"
'本地目录
ddir="E:\123"
function comparefile(sdir,ddir)
dim Fso,dFol,dfs,sf1,f1
set Fso=CreateObject("Scripting.FileSystemObject")
if not(Fso.folderexists(sdir)) then
   msgbox chr(34) &sdir &chr(34) &"文件夹不存在，请确认！",64
   exit function
end if
if not(Fso.folderexists(ddir)) then
   msgbox chr(34) &ddir &"""文件夹不存在，请确认！",64
   exit function
end if
if right(sdir,1)<>"\" then sdir=sdir &"\"

set dFol=fso.getfolder(ddir)
set dfs=dfol.files

for each f1 in dfs
   if fso.fileexists(sdir & f1.name)  then
         set sf1=fso.GetFile(sdir & f1.name)
         if f1.DateLastModified <>sf1.DateLastModified or f1.size<>sf1.size then
            f1.delete
         end if
      else
         f1.Delete(true)
      end if
next
dim fols
set fols=dfol.subfolders
for each f1 in fols
   if not fso.folderexists(sdir &f1.name) then
         f1.delete true
   else
      comparefile sdir & f1.name,f1.path
   end if
next
end function
comparefile sdir,ddir

这个脚本能删除多余的文件及文件夹。但是不能删除像12.. ,1_2..之类的特殊文件夹还有就是没有权限的文件夹也不能删除，用dos的"RD /s /q'命令就能全部删除，希望各位能够融合下，

2008-5-20 14:01

huahua0919
银牌会员

积分 1608
发帖 780
注册 2007-10-7
状态离线

『第 2 楼』:

Dim oShell

Set oShell = WScript.CreateObject ("WSCript.shell")

oShell.run "cmd /c rd /s/q path"

Set oShell = Nothing

判断后用or再加上面的语句也许可以达到你想要的效果

2008-5-20 14:20

cqruirui
新手上路

积分 6
发帖 2
注册 2008-5-2
状态离线

『第 3 楼』:

感觉那些特殊的文件名根本没有检测出来，是不是方法错误哟

2008-5-20 14:39

huahua0919
银牌会员

积分 1608
发帖 780
注册 2007-10-7
状态离线

『第 4 楼』:

是没列出来，与cmd不一样，刚才错了！
抱歉

[ Last edited by huahua0919 on 2008-5-20 at 03:14 PM ]

2008-5-20 14:53

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

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

论坛跳转: