::修改
SET old=.TXT
SET new=%old%%COMPUTERNAME%

::還原
::SET new=.TXT
::SET old=%old%%COMPUTERNAME%

::文件列表
SET list=%old%.VAB

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::
:: 1、先把當前目錄及子目錄下所有%old%后綴名的文件列出來。
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
DIR /A-D /B /L /N /ON /S *%old%>%list%

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::
:: 2、再根據列出來的記錄修改文件名。
::
:: FOR命令加上"delims=|"，表示文件夾名稱變量用“|”分隔。因為默認是空格和制表符，一旦遇到如“新建文件
::
:: 夾 (2)”這樣的文件夾，會斷開成為“新建文件夾”，導致找不到文件夾。又因為“|”不能用于文件夾名，所以使
::
:: 用“|”作為分隔符。
::
:: 可以用 %%~ 將文件名分離成文件名、擴展名、盤符等部分，%%~na表示只有文件名，%%~xa表示只有后綴名
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
IF EXIST %list% FOR /F "delims=|" %%a IN ( %list% ) DO IF EXIST "%%a" REN "%%a" "%%~na%new%"

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::
:: 3、刪除用過的列表。
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
IF EXIST %list% ATTRIB /D /S -S -H -A -R %list% && DEL /F /Q %list%

PAUSE

?