【发布时间】：2013-09-24 16:28:21
【问题描述】：
)
为了让公司（我工作的地方）更有条理和更高效地运作，我们为新项目创建了一个经过批准的文件夹结构。
新项目和实时项目驻留在文件服务器上，彼此处于同一级别。 （现场项目已经通过规划，新项目有时只能达到规划）
每次启动新项目时，项目文件夹结构都可以精心创建，因此我制作了一个windows批处理文件来创建它。你可以在这里找到它：http://pastebin.com/mnSu5vnk 这部分效果很好！
文件夹结构为：
F:\New Job\Project Name\Project Correspondence
F:\New Job\Project Name\Project Directory
F:\New Job\Project Name\Project Drawings
F:\New Job\Project Name\Project Images
F:\New Job\Project Name\Project Correspondence\Arboriculturalist
F:\New Job\Project Name\Project Correspondence\CGI
F:\New Job\Project Name\Project Correspondence\Client
F:\New Job\Project Name\Project Correspondence\Measured Survey
F:\New Job\Project Name\Project Correspondence\Planning
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)
F:\New Job\Project Name\Project Correspondence\Client\Appointments
F:\New Job\Project Name\Project Correspondence\Client\Fees
F:\New Job\Project Name\Project Correspondence\Planning\LA Planning
F:\New Job\Project Name\Project Correspondence\Planning\Planning Consultants
F:\New Job\Project Name\Project Correspondence\Planning\LA Planning\Planning Application
F:\New Job\Project Name\Project Correspondence\Planning\LA Planning\Pre Application
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\Arboriculturalist
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\Contract Administrator
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\Contractor
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\LA Building Control
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\M&E Consultants
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\Structural Engineer
F:\New Job\Project Name\Project Correspondence\Post Planning Folders (Drop in as and when)\Tender, Specification
F:\New Job\Project Name\Project Drawings\CD Series (Construction Details)
F:\New Job\Project Name\Project Drawings\Drawing Register
F:\New Job\Project Name\Project Drawings\EW Series (External Works)
F:\New Job\Project Name\Project Drawings\Outgoing Drawings
F:\New Job\Project Name\Project Drawings\P Series (Planning)
F:\New Job\Project Name\Project Drawings\RL Drawings (Room Layouts)
F:\New Job\Project Name\Project Drawings\SK Series (Sketch Design)
F:\New Job\Project Name\Project Drawings\X Series (Existing)
F:\New Job\Project Name\Project Drawings\Outgoing Drawings\DWG FILES
F:\New Job\Project Name\Project Drawings\Outgoing Drawings\PDF FILES
问题是一些新项目永远不会进入“Live”状态；但是，那些确实获得了项目编号的人需要在每个子文件夹前加上项目编号。为每个子文件夹添加项目编号前缀的原因是“people”不小心将它们拖到/复制/移动到另一个项目中，这会使事情变得非常混乱！
另一个问题是一些“新项目”已经存在了一段时间（1 年以上）并且没有文件夹结构，因此我需要制作一个批处理文件来检测“新项目”是否是否具有批准的文件夹结构，并酌情重命名。
这是我目前所拥有的，但我认为我的方法完全错误。
@Echo off
:start
set /P ProjNo=Project Number:
set /P ProjAd=Project Address:
cls
Echo New Project Name?
Echo Project Number=%ProjNo%
Echo Project Address= %ProjAd%
set /p proceed=Is this correct? [Y/N]
if /i {%proceed%}=={y} (goto :yes)
if /i {%proceed%}=={yes} (goto :yes)
if /i {%proceed%}=={n} (goto :no)
if /i {%proceed%}=={no} (goto :no)
:no
cls
goto :start
:yes
set "currentpath=%cd%"
set "projfolder=%ProjNo%-%ProjAd%"
:: check if 000-Project Address doesn't exists
echo Does the Project folder exist %currentpath%\%ProjNo%-%ProjAd%?
If NOT exist "%currentpath%\%ProjNo%-%ProjAd%\"
(
echo the folder does NOT exist
::check if project folder name doesn't existing
if NOT exist "%currentpath%\%ProjAd%\"
(
:: rename the folder to 000-Project Address
echo Renaming Project Folder
ren "%ProjAd%" "%ProjNo%-%ProjAd%"
call:TopLevel
)
::if project address name DOES exist
else
(
::enter the folder and check the structure.
echo Project Folder doesn't need renaming
call:TopLevel
)
)
::-----------------------------------------------------
:: if "000-Project Address" DOES exist
::-----------------------------------------------------
else
(
Echo There is no need to run this script!
goto:eof
)
)
::-----------------------------------------------------
:: Recurse Top level
::
:: If all the "Recommended" directory names exist
:: rename all sub-directories too!
:: Else create them all!
::-----------------------------------------------------
:TopLevel
CD projfolder
::check if there's a project correspondence
IF exist "Project Correspondence"
(
ren "Project Correspondence" "%ProjNo%-Project Correspondence"
::rename the child folders
cd "%ProjNo%-Project Correspondence"
for /f "tokens=*" %G in ('dir /b /a:d "*"') do ren "%G" "%ProjNo%-%G"
cd "%ProjNo%-client"
for /f "tokens=*" %G in ('dir /b /a:d "*"') do ren "%G" "%ProjNo%-%G"
cd ..\planning\
)
else
(
mkdir "%ProjNo%-Project Correspondence"
callto:
::function makeProjCorrespondence
call:makeProjCorrespondence %ProjNo%
)
:: check if there's a project directory
IF exist "Project Directory"
(
ren "Project Directory" "%ProjNo%-Project Directory"
)
else
(
mkdir "%ProjNo%-Project Directory"
)
if exist "Project Drawings"
(
ren "Project Drawings" "%ProjNo%-Project Drawings"
::go to project drawings function
)
goto:eof
:makeProjCorrespondence
cd "%ProjNo%-Project Correspondence"
mkdir "%ProjNo%-Planning"
mkdir "%ProjNo%-Arboriculturalist"
mkdir "%ProjNo%-CGI"
mkdir "%ProjNo%-Client"
mkdir "%ProjNo%-Measured Survey"
mkdir "%ProjNo%-Post Planning Folders (Drop in as and when)"
::Make folders under Planning
cd "%ProjNo%-Planning"
mkdir "%ProjNo%-LA Planning"
mkdir "%ProjNo%-Planning Consultants"
cd "..\"
::Make folders in Client
cd "%ProjNo%-Client"
mkdir "%ProjNo%-Appointments"
mkdir "%ProjNo%-Fees"
cd "..\"
::make Post Planning folders
cd "%ProjNo%-Post Planning Folders (Drop in as and when)"
mkdir "%ProjNo%-Arboriculturalist"
mkdir "%ProjNo%-Contract Administrator"
mkdir "%ProjNo%-Contractor"
mkdir "%ProjNo%-LA Building Control"
mkdir "%ProjNo%-M&E Consultants"
mkdir "%ProjNo%-Structural Engineer"
mkdir "%ProjNo%-Tender, Specification"
cd "..\..\"
goto:TopLevel
我们将不胜感激提示和建议！
非常感谢
【问题讨论】：
-
如果您向我们展示您的源和目标结构是什么，也许我们有机会解决它。就目前而言，您要求我们修复无法执行您未解释的事情的代码。为什么每个目录都需要以projno为前缀？它是
projno-projname的子目录这一事实应该避免所有这些复杂性。在这种情况下，您需要做的就是设置一棵空树并将其用作模板； `xcopy /s/e template projno-projname` -
+1 向我们展示目标文件夹结构 - 用英文解释。
-
更改后的文件夹结构是什么样的？树中的每个文件夹是否都有
001前缀到文件夹名称？001Project Correspondence? -
对造成的混乱表示歉意！首先，我编辑了问题@PeterWright 源文件夹位于我们文件服务器上名为“新项目”的目录中，目标文件夹“实时项目”与“新项目”处于同一级别感谢您阅读我的帖子，我为我糟糕的英语散文道歉。
-
@foxidrive 每个子文件夹都应该有类似
000-folder name的内容我再次编辑了这个问题我希望这能消除混乱。也为我最初的问题措辞不当而道歉。
标签： windows batch-file directory rename