中国DOS联盟

color 17
mode con: cols=50 lines=12
title $$$$*RMVB文件批量处理*$$$$
@echo off
:start
cls
@echo *************************************************
@echo *                                               *
@echo *                批处理RMVB文件                 *
@echo * 1、操作文件                                   *
@echo * 2、还原操作                                   *
@echo * 3、退出                                       *
@echo *************************************************

SET /P ST=请输入序号以选择操作：
echo.
if /I "%ST%"=="1" goto doit
if /I "%ST%"=="2" goto redoit
if /I "%ST%"=="3" goto eof
if {%choice%}=={} goto start

:doit
if exist doit.txt goto doit2
dir *.rmvb /oe/b >list.txt

setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (list.txt) do (
    set var=%%i
    set "var=!var:.rmvb=!"
    echo !var!>>doit.txt
)
del list.txt /f/q/s/a

:doit2
for /f "tokens=*" %%i in (doit.txt) do mkdir "%%i"
for /f "tokens=*" %%i in (doit.txt) do move "%%i".rmvb "%%i"
for /f "tokens=*" %%i in (doit.txt) do ren "%%i"\"%%i".rmvb 01.rmvb
ren doit.txt redoit.txt
@echo 处理完毕。。。。
pause.
goto start

:redoit
@echo off
for /f "tokens=*" %%i in (redoit.txt) do ren "%%i"\01.rmvb "%%i".rmvb
for /f "tokens=*" %%i in (redoit.txt) do move "%%i"\"%%i".rmvb ".\"
for /f "tokens=*" %%i in (redoit.txt) do rd "%%i" /s/q
ren redoit.txt doit.txt
@echo 操作还原完毕。。。。
pause.
goto start

@echo off
for /f "delims=" %%i in ('dir/b /a-d') do (
md "%%~ni"
copy "%%i" "%%~ni\01%%~xi"
echo del/q "%%i"
)
pause