junili

回复 2# Nsqs


    感谢大神指教，可以用bat批处理实现吗？
这么晚还在熬夜，辛苦了！

codegay

有种技术叫版本控制，VCS,GIT。。。
部分网盘带版本管理功能，比如Dropbox

以及一些一自动备份软件支持增量备份。

Nsqs

dim s(1):set fso=CreateObject("scripting.filesystemobject")
file="1.txt"	'处理文件路径
path="d:\abc\"	'复制路径
if right(path,1)<>"\" then _
	path=path&"\"
s(0)=fso.opentextfile(file).readall
do:if not fso.folderexists(path) then _
	fso.createfolder path
	read=fso.opentextfile(file).readall
	if StrComp(read,s(0)) then _
		fso.copyfile file,path&file&"_"&dv&"."&fso.getextensionname(file):_
		s(1)=read:s(0)=read	'数据发生改变
	wsh.sleep 1E+3:loop
function dv '格式化时间
	dim y,m,d
	y=year(date):m=month(date):d=day(date)
	dv=y _
	&(100+m) \10 mod 10 & (100+m) mod 10 _
	&(100+d) \10 mod 10 & (100+d) mod 10
end function
复制代码

每秒检测,退出用任务管理器结束,保存vbs文件