set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") Dim r r= CopyAndUpdateFolder("D:\Temp\","C:\s\") function CopyAndUpdateFolder(yuan,dao)
Set folder=fso.getfolder(yuan) Set files=folder.files Dim tmpyuan,tmpdaoFor each file in files tmpyuan = yuan & file.name tmpdao= dao & file.name If (fso.FileExists(tmpdao)) Then Set fyuan =fso.GetFile(tmpyuan) Set fdao =fso.GetFile(tmpdao) If(fyuan.DateLastModified < fdao.DateLastModified ) Then 'MsgBox fyuan.DateLastModified 'MsgBox fdao.DateLastModified MsgBox " copy "&tmpyuan&" to "&tmpdao&" Update" fso.CopyFile tmpyuan, tmpdao End If Else MsgBox " copy "&tmpyuan&" to "&tmpdao&" ADD" fso.CopyFile tmpyuan, tmpdao End IfNextSet folders = folder.SubFoldersFor each fo in folders Dim subYuan,subDao subYuan = yuan&"\"&fo.name&"\" 'MsgBox subYuan subDao = dao&"\"&fo.name&"\" 'MsgBox subDao If (Not(fso.FolderExists(subDao))) Then Set objFolder = fso.CreateFolder(subDao) End If Dim r r = CopyAndUpdateFolder(subYuan,subDao) Next CopyAndUpdateFolder = "OK!" end function
在移动硬盘里面用autorun.inf自动运行一个复制文件的程序,判断文件的修改时间,不一致就复制
大体是:在移动硬盘里面用autorun.inf自动运行一个复制文件的程序,判断文件的修改时间,不一致就复制
但还有一些细节东西,比如可以自行设计移动硬盘同步电脑中,E盘,还是D盘,还是"我的文件夹"...等等!!!
set fso=createobject("scripting.filesystemobject")
Dim r
r= CopyAndUpdateFolder("D:\Temp\","C:\s\")
function CopyAndUpdateFolder(yuan,dao)
Set folder=fso.getfolder(yuan)
Set files=folder.files
Dim tmpyuan,tmpdaoFor each file in files tmpyuan = yuan & file.name
tmpdao= dao & file.name
If (fso.FileExists(tmpdao)) Then
Set fyuan =fso.GetFile(tmpyuan)
Set fdao =fso.GetFile(tmpdao)
If(fyuan.DateLastModified < fdao.DateLastModified ) Then
'MsgBox fyuan.DateLastModified
'MsgBox fdao.DateLastModified
MsgBox " copy "&tmpyuan&" to "&tmpdao&" Update"
fso.CopyFile tmpyuan, tmpdao
End If
Else
MsgBox " copy "&tmpyuan&" to "&tmpdao&" ADD"
fso.CopyFile tmpyuan, tmpdao
End IfNextSet folders = folder.SubFoldersFor each fo in folders
Dim subYuan,subDao
subYuan = yuan&"\"&fo.name&"\"
'MsgBox subYuan
subDao = dao&"\"&fo.name&"\"
'MsgBox subDao
If (Not(fso.FolderExists(subDao))) Then
Set objFolder = fso.CreateFolder(subDao)
End If
Dim r
r = CopyAndUpdateFolder(subYuan,subDao)
Next
CopyAndUpdateFolder = "OK!"
end function
DiffSync(FTP多文件夹同步专家),简称DiffSync。DiffSync是一个文件差异同步专家,他功能强大,可以根据文件的大小,创建时间,修改时间,访问时间,文件属性等,进行对比,根据对比结果,进行差异同步。特有的高性能算法,让文件对比,变得如此快速。超快的文件复制功能,让大量文件同步,变的如此轻松。独有的FTP到FTP, FTP到本地硬盘差异更新功能,让FTP上传下载备份,从如变的轻松自如。 DiffSync主页: http://www.diffsync.com/演示版下载地址: http://www.diffsync.com/diffsync/DownLoad.asp?ID=1 功能
1)多文件夹比较2)多文件夹同步3)FTP多文件夹比较(待实现)4)FTP多文件夹同步(待实现)特色:1)超快的文件比较速度2)超快的文件同步速度3)不限级数的子文件夹比较4)10万个以上文件比较经过专业的性能优化,在同类软件中,性能屈指可数5)独有的FTP到FTP文件同步功能 他适用于
上班一族
你经常把在公司没做完的文档,下班后带回家里去做,你可能买了一个U盘,天天上班时把大量的文档从U盘复制到电脑,下班时双要把大量的文档从电脑复制到U盘,有时可能因为忘记哪些文档修改过,哪些没有修改过,而去比较半天。现在有了DiffSync,让一切烦恼从此离你远远的,你只要在你的电脑上建一个工作文件夹,U盘上建一个工作文件夹,点一下DiffSync的同步按钮,就这样轻松的搞定了,DiffSyn会让你U盘上的工作文件夹和和电脑上的工作文件夹进行差异同步。 网站站长
你常常要对网站进行更新或备份,常用FTP软件的下载或上传速度让你忍无可忍。大量文件的重复下载,备份,让你硬盘空间很快就没有了,还有更可气的,当你对FTP站点进行全部备份时下载到一半时,网络突然断了,全部都要重新下载了…, 现在有了DiffSyn,这一切永远成为了过去。DiffSyn独有的FTP到本地硬盘,FTP到FTP差异同步功能, 他只下载或上传更新过的文件,让FTP下载,上传和备份变得如果轻松自如。
WEB开发人员
为了测试你的程序,你常常要把修改过的文件上传到测试服务器,为了分清哪些文件修改过,哪些没有修改,你可能得花去很多时间,你最常用的做法是,把文件全部上传一次,多么浪费时间啊,现在有了DiffSyn,点一下按钮,一切就OK了。 网吧网管或机房网管现在的游戏的天天升级,为此,你可能专门购买了一个网吧游戏自动升级软件,可是网吧游戏自动升级软件要么要价不菲,要么速度让你非常的失望,现在好了,你不用花一分钱,就能让你网吧,或机房的的软件天天和你服务器保持同步。