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
复制代码

strSrcFile = "E:\test\a.txt"
strDstDir = "E:\Backup"

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colEvents = objWMI.ExecNotificationQuery _
    ("select * from __InstanceModificationEvent within 5 where " _
    & "TargetInstance ISA 'CIM_DataFile' and TargetInstance.Name='" & Replace(strSrcFile, "\", "\\") & "'")

While True
    Set objEvent = colEvents.NextEvent
    strNewFile = strDstDir & "\" & objEvent.TargetInstance.LastModified & ".txt"
    objEvent.TargetInstance.Copy strNewFile
Wend
复制代码

@echo off
set "f=E:\Test\a.txt"
for /f %%i in ('wmic datafile where "Name='%f:\=\\%'" get LastModified^|findstr [0-9]') do set "t1=%%i"

:Loop
>nul ping 127.0.1 -n 5
for /f %%i in ('wmic datafile where "Name='%f:\=\\%'" get LastModified^|findstr [0-9]') do set "t2=%%i"
if not "%t1%" == "%t2%" copy "%f%" "E:\Backup\%t2%.txt"
set "t1=%t2%"
goto :Loop
复制代码

@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
复制代码