
| Quote: | |
|
CODE: [Copy to clipboard]WinXPSP2下多次测试通过。不知满足要求否?@echo off & setlocal enabledelayedexpansion & title By Bozhou & color 0a
:请先设置目录
set p1=%cd%
cd /d "%p1%"
:获取目录以及文件并重命名文件
for /f "delims=*" %%a in ('dir /ad /b') do (
cd "%%a"
set n=0
for /f "delims=*" %%b in ('dir /b /on *.xls') do (
set /a n=n+1
if !n! lss 10 (ren "%%b" "%%a"0!n!.xls) else (ren "%%b" "%%a"!n!.xls)
)
:移动文件
move *.xls ..\
cd..
:删除空文件夹
:若需要请将下行冒号去掉
:rd /s /q "%%a"
echo>nul
)
pause
| Quote: | |
|
| Quote: | |
|
CODE: [Copy to clipboard][ Last edited by bozhou on 2010-9-12 at 22:14 ]@echo off & setlocal enabledelayedexpansion & title By Bozhou & color 0a
:请先设置目录,并确保将要被操作的文件以及文件夹没被运行占用
set p1=%cd%
cd /d "%p1%"
:获取目录并更改目录名(将文件夹名1.a改成a)
for /f "tokens=1,2 delims=." %%i in ('dir /ad /b') do ren "%%i"."%%j" "%%j"
:获取目录以及文件并重命名文件
for /f "delims=*" %%a in ('dir /ad /b') do (
cd "%%a"
set n=0
for /f "delims=*" %%b in ('dir /b /on *.xls') do (
set /a n=n+1
if !n! lss 10 (ren "%%b" "%%a"0!n!.xls) else (ren "%%b" "%%a"!n!.xls)
)
:移动文件
move *.xls ..\
cd..
:删除空文件夹
:若需要请将下行冒号去掉
:rd /s /q "%%a"
echo>nul
)
echo 操作完成!
pause
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |