@echo off
cls
title Create bat file
set ifo=abcdefghijklmnopqrstuvwxyz0123456789cls
color 0A
:menu
echo.
echo ================================
echo Select operation, press Enter
echo ================================
echo.
echo 1. Delete folder, delete all files in folder.
echo.
echo 2. Copy file to folder.
echo.
echo 3. Delete files.
echo.
echo 4. Rename files.(act on the same level of catalog files)
echo.
echo Q. Quit
echo.echo @echo off>file.bat:ChoiceOperation
set choice=
set /p choice= Choice:
if not "%choice%"=="" set choice=%choice:~0,1%
if /i "%choice%"=="1" goto RemoveFolders
if /i "%choice%"=="2" goto CopyFile
if /i "%choice%"=="3" goto DeleteFiles
if /i "%choice%"=="4" goto RenameFiles
if /i "%choice%"=="Q" goto endd
echo Invalid, again
echo.
goto ChoiceOperationREM 移除目錄樹下的文件夾
:RemoveFolders
echo RemoveFolders
set RemFchoice=
set /p RemFchoice= FolderName:
set str1=for /r . %%%%d in (.) do rd /s /q "%%%%d\
set str1=%str1%%RemFchoice%"
set str2= %ifo:~28,1%
set str1=%str1%%str2%
echo %str1%^>nul >>file.bat
echo RemoveFolders OK
echo.
goto ChoiceOperationREM 復(fù)制文件到目錄樹下的特定目錄
:CopyFile
echo CopyFile
set CopyFileChoice=
set /p CopyFileChoice= CopyFileName:
set CopyFolderChoice=
set /p CopyFolderChoice= CopyFolderName:
set str1=for /r . %%%%a in ("%CopyFolderChoice%") do copy %CopyFileChoice% "%%%%a"
echo %str1% >>file.bat
set str2=del /s /a "%CopyFolderChoice%"
set str3= %ifo:~28,1%
echo %str2%%str3%^>nul >>file.bat
echo CopyFile OK
echo.
goto ChoiceOperationREM 刪除目錄樹下的所有特定文件
:DeleteFiles
echo DeleteFiles
set DelFileChoice=
set /p DelFileChoice= DelFileName:
set str1=del /s /a "%DelFileChoice%"
set str2= %ifo:~28,1%
echo %str1%%str2%^>nul >>file.bat
echo DeleteFiles OK
echo.
goto ChoiceOperationREM 重命名文件，作用于同級目錄文件
:RenameFiles
echo RenameFiles
set Typechoice=
set /p Typechoice= File type(*.type):
set Findchoice=
set /p Findchoice= Find what:
set Replacechoice=
set /p Replacechoice= Replace with:
set str2=%ifo:~36,1%
set str1=setlocal enabledelayedexpansion
echo %str1% >>file.bat
set str1=for %%%%i in (
set str2=%Typechoice%
set str1=%str1%%str2%
set str2=) do (
set str1=%str1%%str2%
echo %str1% >>file.bat
set str1=set ym=%%%%i
echo %str1% >>file.bat
set str1=set ym=!ym:
set str2=%Findchoice%
set str3=%Replacechoice%
set str1=%str1%%str2%=%str3%!
echo %str1% >>file.bat
set str1=if %%%%i neq !ym! (ren "%%%%i" "!ym!")
echo %str1% >>file.bat
set str1=)
echo %str1% >>file.bat
set str1=endlocal
echo %str1% >>file.bat
echo RenameFiles OK
echo.
goto ChoiceOperationpause:endd
echo exit>>file.bat
exit
