2# cjiabing
不明白....
请问,
具体要怎么做呢?
如果用以下代码:- SetLocal EnableDelayedExpansion
- For /R %%a In (*.mp4 *.rmvb *.mkv) Do (
- Set "Str=%%~nxa"
- SetLocal&Cls
- Echo 视频文件:%%~nxa&Echo,
- For /f "Delims=" %%b In ('Dir /ad /b F:\视频') Do (
- Set /A Num+=1,Number+=1&Set ".!Num!=F:\视频\%%b"
- Set "Str=000!Num!"&Set "Var=%%b "
- Set /P=[!Str:~-3!]!Var:~,20!<nul
- If "!Number!" EQU "2" Echo,&Set /A Number=0
- )
- Echo,&Set "Str="&Set /P Str=请选择文件夹:
- For %%b in (!Str!) do Echo !.%%b!>tem
- EndLocal
- Set /p Str=<tem&Del tem
- Echo,&Set "Var="&Set /P Var=A,直接建立文件夹 D,打开子文件夹:
- If /i "!Var!" EQU "D" (
- SetLocal&Cls
- Echo 视频文件:%%~nxa&Echo,
- For /F "Delims=" %%b In ('Dir /s /ad /b "!Str!"') Do (
- Set /A Num+=1,Number+=1&Set ".!Num!=%%b"
- Set "Str1=000!Num!"&Set "Var=%%b "
- Set /P=[!Str1:~-3!]!Var:~,20!<nul
- If "!Number!" EQU "2" Echo,&Set /A Number=0
- )
- Echo,&Set "Str="&Set /P Str=请选择文件夹:
- For %%b in (!Str!) do Echo !.%%b!>tem
- EndLocal
- Set /p Str=<tem&Del tem
- )
- SetLocal&Cls
- Echo 视频文件:%%~nxa&Echo,
- Set /P Name=所选文件夹是!Str!,请输入新文件夹名:
- If Not Exist "!Str!\!Name!" Md "!Str!\!Name!"
- Move "%%a" "!Str!\!Name!\"
复制代码
|