went

写入日期到日志文件:

echo.%date:~0,10%,%time:~0,8%>>"%~dp0\logDT.txt"
复制代码

更新日期:

@echo off
setlocal enabledelayedexpansion
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","REM",,"runas",1)(window.close)&exit
set "logDT=%date:~0,10%,%time:~0,8%"
for /f "usebackq delims=" %%i in ("%~dp0\logDT.txt") do if "!logDT!" lss "%%i" set "logDT=%%i"
if "%date:~0,10%,%time:~0,8%" lss "%logDT%" (
	echo update date time : %logDT%
	date %logDT:~0,10%
	time %logDT:~11,8%
)
pause&exit
复制代码

开机自动修改要把bat放到C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp路径

went

回复 10# conan52


6楼代码已修改,加了比较
修改日期必须管理员,

went

回复 15# conan52


    可以，晚点回去帮你弄

went

回复 17# conan52 写入日志到文件

@echo off
REM logFile
set "logFile=%~dp0logDT.txt"
REM write
echo.%date:~0,10%,%time:~0,8%>>"%logFile%"
REM max line
set "maxLine=20"
REM current line num
for /f "tokens=3 delims=:" %%i in ('find /n /c "," "%~dp0\logDT.txt"') do set "curLine=%%i"
REM compare
set /a "key=%curLine%-%maxLine%"
if %key% gtr 0 ( 
	more +%key% "%logFile%" >"%~dp0tmp.txt"
	move /y "%~dp0tmp.txt" "%logFile%" >nul 2>nul
) 
复制代码