setlocal enabledelayedexpansion
set "x=C:\Documents and Settings\Administrator\桌面\信访\信访打印单"
dir /ad /b "%x%" >>5.txt
set /p a=请输入4位数年月:
for /f "delims=" %%i in ('findstr /i /c:%a% 5.txt') do (
set y=%%i
set h=!y:~4,5! 
(if exist "%x%\%a%!h!\交办打印单.htm" (ren "%x%\%a%!h!\交办打印单.htm" 交办打印
单.doc) else (
start "" "%x%\%a%!h!\交办打印单.doc"&echo "%x%\%a%!h!\交办打印单.doc" >>记
录.txt&ping -n 5 127.1>nul
f11.vbs
start "" "%appdata%\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"&ping -n 5 
127.1>nul
start "" "%x%\%a%!h!\回复打印单.htm"&echo "%x%\%a%!h!\回复打印单.doc"&ping -n 5 
127.1>nul
f11.vbs
start "" "%appdata%\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"&ping -n 5 
127.1>nul)))
del "%x%\*.txt"
pause
复制代码