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文件

Nsqs

@echo off
set "file=1.txt"
copy %file% tmp>nul
set "p=d:\abc"
if not %p:~-1%==\ set p=%p%\
:loop
set t=%time:~,2%%time:~3,2%%time:~6,2%&call set f=%%file:.=_%t%.%%
cls&fc /b %file% tmp>nul 2>nul && echo 数据没有任何改动||(
(copy %file% tmp
if not exist %p% md %p%
copy %file% %p%%f%)>nul
echo 数据发生改变)
for /l %%1 in (1 1 12000)do (. 2>nul)
goto loop
复制代码

回复 6# junili

每1秒检测一次

Nsqs

回复 9# junili


    他的代码效率极低,调用太多外部程序了

Nsqs

to 楼上

好好贴你的代码就可以了，以你目前的批处理水平，评论别人的代码，你还不够格。
WHY 发表于 2016-4-29 11:07

    逗，你的代码在for里调用wmi和find 除了bat本身循环，还不包括第三方多次循环。或者，你这么优越感那就秀一秀你的技术？我是跟别人说话。再者你那么高调的说我技术烂的话。说话之前最好掂量一下自己，小心打脸。

Nsqs

回复 15# WHY


    就事论事,我发现你很喜欢纠结,我是跟楼主说话也没有回复你,占资源的话你的程序会更夸张吧?你自己看看进程每次启动findstr和wmi ping cpu会暴涨最少20-30%左右
而且你在返回值上每次得到结果都会慢半拍,楼主也说了.举个典型的例子就是,当你要解决一个问题的时候要求不能过午夜12点,因为速度慢半拍而发生问题.
你再看看我的代码里有ping 等外部程序么? 你说我自以为是你还是管好自己吧,我的都没搭理你,上来一句喷人,到底是谁自以为是我就呵呵了