@ECHO ********************************************************************
@ECHO *** ***
@ECHO *** 脚本功能: ***
@ECHO *** 搜索当前目录及其所有子目录下wpj工程 ***
@ECHO *** ***
@ECHO *** 版本: ***
@ECHO *** FindAllwpj version 0.9 ***
@ECHO *** ***
@ECHO *** 版权: ***
@ECHO *** 本脚本采用GNU版权协议分发,是作者开发的系列脚本工具之一。 ***
@ECHO *** ***
@ECHO *** ***
@ECHO *** 作者:svnLight ***
@ECHO *** ***
@ECHO ********************************************************************
@setlocal
@set StartDir=%CD%
@set /A FileCounter=0
@set OutPutFile4k8=WpjList4K8.txt
@if exist %OutPutFile4k8% del %OutPutFile4k8%
@if ""=="%1" @goto Search4Allwpj
@ECHO 搜索当前目录及其所有子目录下的%1.wpj文件,并生成文件清单%OutPutFile%
@for /R %%I in (%1.wpj) do @if exist %%I set /A FileCounter+=1 && echo "%%I" >> %OutPutFile4k8%
@goto ShowMsg
:Search4Allwpj
@ECHO 搜索当前目录及其所有子目录下的wpj文件,并生成文件清单%OutPutFile%
@for /R %%I in (*.wpj) do @if exist %%I set /A FileCounter+=1 && echo "%%I" >> %OutPutFile4k8%
:ShowMsg
@ECHO 共找到%FileCounter%个Tornado工程
@cd %StartDir%
@endlocal
@ECHO ON