@echo off
::--------------------------------------------------------------------------------------------------------用户参数赋值----------------------
::是否删除原有任务(注意：如果设为Y后，会删除系统的所有计划任务，请谨慎设定)
set pDelFlag=N
::请设定关机延迟小时数
set pDefHour=1
::请设定关机延迟分钟数
set pDefMinute=0
::--------------------------------------------------------------------------------------------------------系统参数赋值----------------------
set xpProgName=文件批量改名程序
set xpFileName=ChgName.bat
set xpAuthor=Taoether
set xpProgVer=1.0.0.1
set xpSupport=http://www.taoyoyo.net/ttt/post/458.html
set xpEmail=taoether@gmail.com
set xpMode=A
set xpDebug_Flag=0
::设置颜色方案
::xpColorDef--程序默认颜色配置 3e
::xpColorErr--程序错误时颜色配置 84, e4
::xpColorOth-- 其它颜色，比如帮助，版本信息 3f
::xpColor1，xpColor2--各程序自定义颜色
::默认方案--------3e,84,3f
set xpColorDef=30
set xpColorErr=84
set xpColorOth=3f
set xpColor1=30
set xpColor2=f4
goto lblInitialize
::--------------------------------------------------------------------------------------------------------程序说明-------------------------
::此段为注释：
::批量改名程序，可以批量将文件名修改为文件日期+文件名
::需要加参数：1，文件；2，源目录；3，目标目录；4，是否带原文件名；5，指定文件名
::不能在同一目录操作，有可能会重复修改……
::如：ChgName *.jpg D:MyTempPHOTO d:photo --将D:MyTempPHOTO下*.jpg修改名字，保存到d:photo*.jpg
::--------------------------------------------------------------------------------------------------------系统初始化-------------------------
:lblInitialize
goto lblStart
::--------------------------------------------------------------------------------------------------------环境设定子程序--------------------
:prSetDisplay
::cls
color %1
::mode con lines=%2 cols=%3
title 欢迎使用 %xpProgName%/%xpFileName%_V%xpProgVer% [By %xpAuthor%]
echo.
echo 【欢迎使用 %xpProgName%/%xpFileName%_V%xpProgVer% By %xpAuthor%】
Rem echo 欢迎使用!xpAuthor!编制的!xpProgName!(!xpFileName!) !xpProgName!_V!xpProgVer!
echo.
::echo 当前程序运行模式=[%xpMode%]
goto :eof
::--------------------------------------------------------------------------------------------------------程序判断-------------------------
:lblStart
if /I "%1"=="Version" goto lblVer
if /I "%1"=="Ver" goto lblVer
if /I "%1"=="V" goto lblVer
if /I {%1}=={Help} goto lblhelp
if /I "%1"=="H" goto lblhelp
if /I {%1}=={H} goto lblhelp
if /I {%1}=={?} goto lblhelp
if {%1}=={} goto lblError
if {%2}=={} goto lblError
if {%3}=={} goto lblError
if {%2}=={%3} goto lblError
if not exist %2 goto lblError
goto lblMain
::--------------------------------------------------------------------------------------------------------帮助-------------------------
:lblhelp
Call :prSetDisplay %xpColorOth% 45 76
echo.
echo Help:
echo -----------------------------------------
echo 此程序可以批量修改文件名，默认将文件名修改为[文件日期时间+序号]；也可以指定文件名，文件名修改为[指定文件名+序号]；同时，也可保留原文件名。
::批量改名程序，可以批量将文件名修改为文件日期+文件名
::需要加参数：1，文件；2，源目录；3，目标目录；4，是否带原文件名【】〖〗
echo.
echo 【用法】 %xpFileName% [参数1：文件] [参数2：源目录] [参数3：目标目录] [参数4：是否保留原文件名] [参数5：指定文件名]
echo.
echo 【说明】
echo 参数1：要修改名称的文件，支持通配符，如*.jpg、10*.jpg
echo 参数2：源目录--要改名文件的所在目录
echo 参数3：目标目录--改名后文件存放的目录，如果没有此目录，程序会自动创建目录
echo 参数4：是否保留原文件名--非必要参数：设置此参数=Y时，保留原文件名(此时命名中不加序号)；此参数=N时，不保留原文件名，此时命名中会添加序号。
echo 参数5：设置特定文件名--非必要参数：设置此参数时，以[参数5+序号/原文件名]命名；不设置时，以[文件的日期时间+序号/原文件名]命名。
echo.
echo 【注意】
echo 1，参数1~3为必填参数，不能为空!
echo 2, 目录最后必须带斜杠""
echo 3，源目录和目标目录不能为同一目录
echo 4, 目标目录如果不存在时，程序会自动创建目录
echo.
echo 【此外】
echo 参数1=Version，显示程序版本 (Version=Ver=V)
echo 参数1=Help，显示程序帮助 (Help=H=?)
echo.
echo 【示例】
echo %xpFileName% *.jpg d:photo d:
ew
echo 处理文件夹d:photo中的*.jpg文件，复制到目录d:
ew中，不保留原文件名，按[文件的日期时间+序号]命名。
echo %xpFileName% *.jpg d:photo d:
ew Y
echo 处理文件夹d:photo中的*.jpg文件，复制到目录d:
ew中，保留原文件名，按[文件的日期时间+原文件名]命名。
echo %xpFileName% 10*.jpg d:photo d:
ew N 20100910
echo 处理文件夹d:photo中的10*.jpg文件，复制到目录d:
ew中，不保留原文件名，按[20100910+序号]命名。
echo %xpFileName% 10*.jpg d:photo d:
ew Y 20100910
echo 处理文件夹d:photo中的10*.jpg文件，复制到目录d:
ew中，保留原文件名，按[20100910+原文件名]命名。
echo.
echo 【相关说明】 %xpSupport%
echo 【技术支持】 %xpEmail%
echo -----------------------------------------
call :lblAd
goto lblEnd
::--------------------------------------------------------------------------------------------------------版本-------------------------
:lblVer
Call :prSetDisplay %xpColorOth% 45 76
echo.
rem 重要声明：
rem 本程序由陶永利编写，您可以任意传播，但请不要删除以下信息!
rem 如用于商业用途，请与作者联系。
echo Version:
echo ------------------------------
echo Program: %xpProgName% / %xpFileName%
echo Author: %xpAuthor%
echo Version: %xpProgVer%
echo IssueTime: 20100526
echo UpdateTime:
echo Email: %xpEmail%
echo Blog: http://www.taoyoyo.net/ttt/
echo HomePage: http://www.taoyoyo.net/
echo ------------------------------
echo.
echo Version Log:
echo -----------------------------------------
echo Ver. Date. Log.
echo -----------------------------------------
echo V1000 20100526 New program issue.
echo V1001 20101010 Optimize program
echo.
echo ...
echo -----------------------------------------
echo 相关说明：%xpSupport%
echo 技术支持：%xpEmail%
Call :lblAd
goto lblEnd
::--------------------------------------------------------------------------------------------------------错误处理-------------------------
:lblError
Call :prSetDisplay %xpColorErr% 15 76
echo.
::echo 【相关说明】 %xpSupport%
::echo 【技术支持】 %xpEmail%
::echo --相关说明: %xpSupport% 技术支持: %xpEmail%
::echo --相关说明: %xpSupport% 技术支持: %xpEmail%
echo 【程序错误】
echo.
if {%1}=={} (
echo 参数不足!
echo.
echo 此命令需要三个必选参数：
echo [参数1：文件]
echo [参数2：源目录]
echo [参数3：目标目录]
echo 还有一个选填参数：
echo [参数4：是否保留原文件名]
echo [参数5：指定文件名]
echo.
echo 请键入[%xpFileName% H]查看帮助信息
echo.
echo --相关说明: %xpSupport%
echo --技术支持: %xpEmail%
goto lblEnd
)
if {%2}=={} (
echo 参数不足!
echo.
echo 此命令需要三个必选参数：
echo [参数1：文件]
echo [参数2：源目录]
echo [参数3：目标目录]
echo 还有一个选填参数：
echo [参数4：是否保留原文件名]
echo [参数5：指定文件名]
echo.
echo 请键入[%xpFileName% H]查看帮助信息
echo.
echo --相关说明: %xpSupport%
echo --技术支持: %xpEmail%
goto lblEnd
)
if {%3}=={} (
echo 参数不足!
echo.
echo 此命令需要三个必选参数：
echo [参数1：文件]
echo [参数2：源目录]
echo [参数3：目标目录]
echo 还有一个选填参数：
echo [参数4：是否保留原文件名]
echo [参数5：指定文件名]
echo.
echo 请键入[%xpFileName% H]查看帮助信息
echo.
echo --相关说明: %xpSupport%
echo --技术支持: %xpEmail%
goto lblEnd
)
if /I {%2}=={%3} (
echo 参数错误!
echo.
echo 源目录和目标目录相同，这样会导致重复命名，请修改参数。
echo.
echo 请键入[%xpFileName% H]查看帮助信息
echo.
echo --相关说明: %xpSupport%
echo --技术支持: %xpEmail%
goto lblEnd
)
if not exist %2 (
echo 源目录错误!
echo.
echo 源目录[%2]不存在，请检查后重新输入。
echo.
echo 请键入[%xpFileName% H]查看帮助信息
echo.
echo --相关说明: %xpSupport%
echo --技术支持: %xpEmail%
goto lblEnd
)
)
echo.
goto lblEnd
::--------------------------------------------------------------------------------------------------------广告-------------------------
:lblAd
echo.
::echo ----------
echo 【一点广告】
::echo ----------
echo 本资料由悠悠网, TTT BLOG提供，欢迎访问!
echo [悠悠网] http://www.taoyoyo.net/
echo [TTT BLOG] http://www.taoyoyo.net/ttt/
echo 联系我们：taoether@gmail.com
goto :eof
======下面是广告时间~~======
本资料由悠悠网提供，欢迎访问悠悠网：http://www.taoyoyo.net/
悠悠网，精心为大家收集整理精品网络资源!
欢迎进入--
[猫腻小说] http://www.taoyoyo.net/maoni/
专门收集整理猫腻的作品，保证原汁原味，有前后题记，更新时间，全部手工编辑整理，便于阅读和收藏，并开通wap功能(手机阅读)，以及邮件，RSS订
阅功能!
[猫腻论坛] http://www.taoyoyo.net/mao/
这里是猫腻书迷的家，是由猫腻书迷自发组织的论坛，专门讨论猫腻的小说，并收集猫大的各种新闻，作品!
[经典小游戏] http://www.taoyoyo.net/mgame/
收集整理经典的小游戏，绝对经典，不经典不收集，可以下载，可以在线玩，并有游戏说明，攻略，心得!
[我的资源] http://www.taoyoyo.net/cpost/res/res_home.ASP
收集整理经典的小说、学习资料、精品软件等。
[TTT BLOG] http://www.taoyoyo.net/ttt/
我的博客，生活点滴，心得体会，希望与更多的朋友分享!(关注oracle,delphi,java,Linux,unix,以及网站知识!)
[YOYO BLOG] http://www.taoyoyo.net/yoyo/
女儿的博客，记录我的宝贝女儿的生活点滴，瞬间，留下美好的回忆!
[悠悠文摘] http://www.taoyoyo.net/lib/
悠悠周刊网站，精心收集整理精品文摘，并发行免费电子杂志<悠悠周刊>
联系我们：taoether@gmail.com
::--------------------------------------------------------------------------------------------------------临时保存代码-------------------------
::保留原文件名
::copy %%i %3!pFNewName!_%%~nxi
::不保留原文件名
::copy %%i %3!pFNewName!%%~xi
for /r %2 %%i in (%1) do (
set pFTime=%%~ti
set pFNewName=!pFTime:~0,4!!pFTime:~5,2!!pFTime:~8,2!_!pFTime:~11,2!!pFTime:~14,2!
set /a pNo=!pNo!+1
if /I "%4"=="Y" (
copy %%i %3!pFNewName!_%%~nxi
echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_%%~nxi
)
if /I not "%4"=="Y" (
copy %%i %3!pFNewName!_!pNo!%%~xi
echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_!pNo!%%~xi
)
)
::--------------------------------------------------------------------------------------------------------主程序-------------------------
:lblMain
Call :prSetDisplay %xpColorDef%
@echo off
setlocal enabledelayedexpansion
echo.
::echo 参数：%1 ，%2 ，%3 , %4
echo 将目录[%2]中的文件%1，复制到目录[%3]中，并修改文件名……
echo.
echo ---处理如下---
echo.
::如果目标目录不存在时，创建
if not exist %3 (
echo 目标目录[%3]不存在，正在创建……
md %3
echo --目标目录创建成功!
echo.
)
set pNo=0
for /r %2 %%i in (%1) do (
set pFTime=%%~ti
if /I {%5}=={} (
::以文件的日期时间命名
set pFNewName=!pFTime:~0,4!!pFTime:~5,2!!pFTime:~8,2!_!pFTime:~11,2!!pFTime:~14,2!
) else (
::以任意名称命名
set pFNewName=%5
)
set /a pNo=!pNo!+1
if /I "%4"=="Y" (
copy %%i %3!pFNewName!_%%~nxi
echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_%%~nxi
) else (
copy %%i %3!pFNewName!_!pNo!%%~xi
echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_!pNo!%%~xi
)
)
goto lblEnd
::--------------------------------------------------------------------------------------------------------程序结束-------------------------
:lblEnd
echo.
pause
调试再调试，不完美不罢休……太浪费时间了!
终于完成了，自认为功能很强大，而且很完美了~~想到的功能都加上了，想到的错误也都排除了……
虽然是为了修改相片作的，但绝对适用于修改任何文件……欢迎使用，欢迎指正!
主要功能介绍：
此程序会批量命名指定文件夹中的指定文件(文件支持通配符)，执行时会将文件复制到指定目录下进行修改名称。
1，默认情况下，重命名为：[文件日期时间+序号]
2，也可以保留原文件名，这时不带序号：[文件日期时间+原文件名]
3，也可指定文件名，此时文件重命名为：[指定文件名+序号]或[指定文件名+原文件名]
4，以上情况用5个参数控制，使用起来还算方便。
5，加入帮助功能，而且一改再改，为的是让别人上手就能明白，充分使用此程序。
6，加入排错功能，一般错误都有提示。
下载地址：http://down.qiannao.com/space/file/taoether/-4e0a-4f20-5206-4eab/-8f6f-4ef6-5de5-5177/ChgName.rar/.page
===================
程序帮助
===================
【欢迎使用 文件批量改名程序/ChgName.bat_V1.0.0.1 By Taoether】
Help:
-----------------------------------------
此程序可以批量修改文件名，默认将文件名修改为[文件日期时间+序号]；也可以指定文件名，文件名修改为[指定文件名+序号]；同时，也可保留原文件名。
【用法】 ChgName.bat [参数1：文件] [参数2：源目录] [参数3：目标目录] [参数4：是否保留原文件名] [参数5：指定文件名]
【说明】
参数1：要修改名称的文件，支持通配符，如*.jpg、10*.jpg
参数2：源目录--要改名文件的所在目录
参数3：目标目录--改名后文件存放的目录，如果没有此目录，程序会自动创建目录
参数4：是否保留原文件名--非必要参数：设置此参数=Y时，保留原文件名(此时命名中不加序号)；此参数=N时，不保留原文件名，此时命名中会添加序号。
参数5：设置特定文件名--非必要参数：设置此参数时，以[参数5+序号/原文件名]命名；不设置时，以[文件的日期时间+序号/原文件名]命名。
【注意】
1，参数1~3为必填参数，不能为空!
2, 目录最后必须带斜杠""
3，源目录和目标目录不能为同一目录
4, 目标目录如果不存在时，程序会自动创建目录
【此外】
参数1=Version，显示程序版本 (Version=Ver=V)
参数1=Help，显示程序帮助 (Help=H=?)
【示例】
ChgName.bat *.jpg d:photo d:
ew
处理文件夹d:photo中的*.jpg文件，复制到目录d:
ew中，不保留原文件名，按[文件的日期时间+序号]命名。
ChgName.bat *.jpg d:photo d:
ew Y
处理文件夹d:photo中的*.jpg文件，复制到目录d:
ew中，保留原文件名，按[文件的日期时间+原文件名]命名。
ChgName.bat 10*.jpg d:photo d:
ew N 20100910
处理文件夹d:photo中的10*.jpg文件，复制到目录d:
ew中，不保留原文件名，按[20100910+序号]命名。
ChgName.bat 10*.jpg d:photo d:
ew Y 20100910
处理文件夹d:photo中的10*.jpg文件，复制到目录d:
ew中，保留原文件名，按[20100910+原文件名]命名。
【相关说明】 http://www.taoyoyo.net/ttt/post/458.html
【技术支持】 taoether@gmail.com
-----------------------------------------
本资料由悠悠网提供，欢迎访问悠悠网：http://www.taoyoyo.net/
悠悠网，精心为大家收集整理精品网络资源!
欢迎进入--
[TTT BLOG] http://www.taoyoyo.net/ttt/
我的博客，生活点滴，心得体会，希望与更多的朋友分享!(关注oracle,delphi,java,Linux,unix,以及网站知识!)
[YOYO BLOG] http://www.taoyoyo.net/yoyo/
女儿的博客，记录我的宝贝女儿的生活点滴，瞬间，留下美好的回忆!
[悠悠文摘] http://www.taoyoyo.net/lib/
悠悠周刊网站，精心收集整理精品文摘，并发行免费电子杂志<悠悠周刊>
[猫腻小说] http://www.taoyoyo.net/maoni/
专门收集整理猫腻的作品，保证原汁原味，有前后题记，更新时间，全部手工编辑整理，便于阅读和收藏，并开通wap功能(手机阅读)，以及邮件，RSS订阅功能!
[猫腻论坛] http://www.taoyoyo.net/mao/
这里是猫腻书迷的家，是由猫腻书迷自发组织的论坛，专门讨论猫腻的小说，并收集猫大的各种新闻，作品!
[我的资源] http://www.taoyoyo.net/cpost/res/res_home.ASP
收集精典的学习资料，视频，游戏，小说等资料
联系我们：taoether@gmail.com