[其他] 批处理延迟变量在根目录下的奇怪的现象

@echo off
setlocal enabledelayedexpansion
color 0f
if not exist backup mkdir backup
warn.vbs 2 0 
for /r %%a in (*.doc) do (
  set var=%%a
  if defined var goto start
)
warn.vbs 1 0 
exit

:start
cd. >TEXT
set "num=0"
dir "%~dp0backup\*.bak" 1>nul 2>nul
set x=!errorlevel!
for /r %%a in (*.doc) do (
  set "y=0"
  if %x%==0 (
   call :fileCompare "%%a"
   if !y!==0 (
     cscript //nologo main.vbs "%%a"
     copy "%%a" "%~dp0backup\!date!-!time:~0,2!-!time:~3,2!-!time:~6,5!.bak" 1>nul 2>nul
     set /a num+=1
     cls & echo 已提取 !num! 个文本
   )
  )  else  (
   cscript //nologo main.vbs "%%a"
   copy "%%a" "%~dp0backup\!date!-!time:~0,2!-!time:~3,2!-!time:~6,5!.bak" 1>nul 2>nul
   set /a num+=1
   cls & echo 已提取 !num! 个文本
   )
)
quit.vbs
::warn.vbs会弹出一个msgbox并显示含有num的值的文本
warn.vbs 3 !num!
if !num!==0 del TEXT 1>nul 2>nul && exit
复制代码