对比删除文件的VBS脚本
2011年04月02日
一段对比删除文件的VBS脚本!(用游戏更新的时候可以用到哦,希望大家灵活应用)dim sdir,ddir
'远程目录
sdir="\\192.168.1.1\vbs\zz\"
'本地目录
ddir="c:\c"
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.sizesf1.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
发表评论
-
自动生成XIP映像文件的一种方法
2012-01-20 10:02 689自动生成XIP映像文件的一种方法 2011年03月04日 ... -
自动生成 MultiTestManager 的执行文件mtm
2012-01-20 10:02 691自动生成 MultiTestManager 的执行文件mtm ... -
批处理隐藏打开IE
2012-01-20 10:02 806批处理隐藏打开IE 2010年06月25日 bat 复 ... -
自动跳转上/下一页的脚本
2012-01-20 10:02 632自动跳转上/下一页的脚本 2010年10月19日 突然觉 ... -
WIN下用exp备份保存最近N天方案
2012-01-20 10:02 733WIN下用exp备份保存最近N天方案 2010年06月03日 ... -
[黑客必备] Vbs脚本实现radmin终极后门 [工具打包]
2012-01-19 15:04 979[黑客必备] Vbs脚本实现radmin终极后门 [工具打包] ... -
VBS脚本得到CPU使用率,硬盘使用率和内存使用率
2012-01-19 15:03 586VBS脚本得到CPU使用率,硬盘使用率和内存使用率 2011 ... -
VBS脚本
2012-01-19 15:03 644VBS脚本 2011年06月30日 我用VBS写的往EX ... -
xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本+提权VBS 整理收集
2012-01-19 15:03 589xp、2003开3389+非net创建管理用户+Shift后门 ... -
Trojan.DL.VBS.Agent.r 脚本病毒 ASP解密
2012-01-19 15:03 563Trojan.DL.VBS.Agent.r 脚本病毒 ASP解 ... -
总体上说,是c++ builder胜于VC++,DELPHI是最好
2012-01-17 04:50 829总体上说,是c++ builder胜 ... -
Qt 学习笔记 --Qt SDK 的下载安装与配置
2012-01-17 04:50 606Qt 学习笔记 --Qt SDK 的下 ... -
我的文件17/1
2012-01-17 04:50 435我的文件17/1 2010年07月26日 Protel技 ... -
2011年计算机三级考试PC技术知识要点(32)
2012-01-17 04:50 4522011年计算机三级考试PC ... -
一个整人的vbs脚本(yzy原创)
2012-01-16 03:41 797一个整人的vbs脚本(yzy原 ... -
VBS脚本病毒刷QQ聊天屏
2012-01-16 03:41 1117VBS脚本病毒刷QQ聊天屏 2009年09月30日 su ... -
脚本操作注册表(vb.vbs)
2012-01-16 03:41 639脚本操作注册表(vb.vbs) 2009年06月05日 ... -
列出所有的WMI对象方法和属性vbs脚本
2012-01-16 03:40 1310列出所有的WMI对象方法和属性vbs脚本 2009年10月2 ...
相关推荐
VBS脚本运行库手册之八(管理文件) VBS脚本运行库手册之九(复制和移动文件) VBS脚本运行库手册之十(文件的属性) VBS脚本运行库手册之十一(建立文本文件) VBS脚本运行库手册之十二(打开和关闭文本文件) ...
wincc vbs脚本手册 西门子 组态 脚本
VBS实例 44个 vbs脚本实例, ...后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs 利用VB编写文本朗读精灵.vbs 。。。。。。。。。。。
Qt工程,c++代码调用vbs脚本函数,一个很简单的demo,参考学习
WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件
WinCC常用的C脚本和VBS脚本对变量进行置位,复位,取反,读写变量;
批量删除文件的vbs脚本
VBS定时删除文件脚本 Function DeleteLog( ) Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath DirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName)....
vbs脚本文件..........................................
wincc VBS脚本加密破解
helloworld vbs 脚本hellohelloworld vbs 脚本world vbs 脚本helloworld vbs 脚本helloworld vbs 脚本helloworld vbs 脚本
vbs脚本, 生成磁盘文件列表, 用到堆栈的算法.
TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
修改文本中exe文件路径,将txt后缀改为vbs,运行即可
wincc中使用VBS脚本读写SQLServer数据库文件
博途V15 wincc使用VBS脚本添加删除趋势曲线,文件为添加删除曲线脚本
Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程
理论完美 易语言删除自身 无需释放bat、vbs脚本延迟删除文件例程 纯源码。精易模块可以考虑添加,自删除后无任何残留痕迹,并且不会引起杀毒软件提示;。精易模块那个会释放文件导致杀毒软件拦截,本例程支持毫秒级...
c#(winform)调用VBS脚本 c#(winform)调用VBS脚本
vbs脚本,设置默认打印机, 服务器管理员可以用于用户登录后指定默认打印机.