求助 - 批次新增資料夾與子資料夾

[victor624]

感謝getter指導
小弟目前還有一個疑問
選項3的第一層資料夾要帶入TXT檔建立
TXT檔內容是不連續號碼 例如

3323-119
3603-226
3603-227
3603-308
3603-309
3604-641
3604-647
3703-010
3703-011
3703-232
3703-233
3703-238
3703-239

然後第二層之後的資料夾 帶入:Make_Dirs的資料夾名稱
該如何改寫呢?? 再請指教 謝謝

@Echo off
cd /d %~dp0 

@Echo off

TITLE=%titles%

Echo  ╔═════════════════╗
Echo  ║  編碼選擇：                      ║ 
Echo  ║ 1.後3碼 按1                      ║ 
Echo  ║ 2.後4碼 案2                      ║ 
Echo  ║ 3.載入TXT檔                      ║
Echo  ╙═════════════════╜
set /p x=請選擇→
if /I "%x%"=="1" goto :1
if /I "%x%"=="2" goto :2
if /I "%x%"=="3" goto :3
cd /d %~dp0 
echo 輸入錯誤
exit

:1
set num1=
set num2=
set name=
cls
echo. %titles%
echo.
echo 請輸入資料夾名稱:
set /p name=
echo.
echo.
echo 請輸入開始編號(1~999):
set /p num1=
echo 請輸入結束編號(1~999):
set /p num2=
if %%V LSS 10    (goto run5)

:run5
for /L %%V in (%num1%,1,%num2%) do (
IF %%V LSS 10 (call:Make_Dirs %name%-00%%V)
IF %%V GEQ 10 IF %%V LEQ 99 (call:Make_Dirs %name%-0%%V)
IF %%V GEQ 100 IF %%V LEQ 999 (call:Make_Dirs %name%-%%V)
)
cls
goto :eof

:2
set num1=
set num2=
set name=
cls
echo. %titles%
echo.
echo 請輸入資料夾名稱:
set /p name=
echo.
echo.
echo 請輸入開始編號(1~9999):
set /p num1=
echo 請輸入結束編號(1~9999):
set /p num2=
if %%V LSS 10    (goto run1) 
if %%V GEQ 10     LEQ 99    (goto run2) 
if %%V GEQ 100    LEQ 999   (goto run3)
if %%V GEQ 1000   LEQ 9999  (goto run4)
cls

:run1
for /L %%V in (%num1%,1,%num2%) do (
IF %%V LSS 10 (call:Make_Dirs %name%-000%%V)
)
:run2
for /L %%V in (%num1%,1,%num2%) do (
IF %%V GEQ 10 IF %%V LEQ 99 (call:Make_Dirs %name%-00%%V)
)
:run3
for /L %%V in (%num1%,1,%num2%) do (
IF %%V GEQ 100 IF %%V LEQ 999 (call:Make_Dirs %name%-0%%V)
)

:run4
for /L %%V in (%num1%,1,%num2%) do (
IF %%V GEQ 1000 IF %%V LEQ 9999 (call:Make_Dirs %name%-%%V)
)
cls

:3
set name=
cls
echo. %titles%
echo.
echo 請輸入資料夾名稱:
set /p name=
echo.
echo.

for /F  %%V in ( MDs.txt ) do (
echo.建立子資料："%%V" (call:Make_Dirs %name%)
 )
cls

:Make_Dirs
rem =======開 發 單 位 =======
mkdir %1\開發\APQP
mkdir %1\開發\CAD
mkdir %1\開發\mail紀錄
mkdir %1\開發\PCR
mkdir %1\開發\PPAP
mkdir %1\開發\包裝
mkdir %1\開發\成本
mkdir %1\開發\成績表
mkdir %1\開發\附件相片圖示
mkdir %1\開發\特採
mkdir %1\開發\異常
mkdir %1\開發\設計變更

rem =======品 管 單 位 =======
mkdir %1\品管\客訴
mkdir %1\品管\不良品統計
mkdir %1\品管\品質異常處理
mkdir %1\品管\圖片及CP
mkdir %1\品管\進料
mkdir %1\品管\出貨
mkdir %1\品管\量測資料
mkdir %1\品管\特採申請
mkdir %1\品管\產品定期稽核
mkdir %1\品管\CPKPPK
mkdir %1\品管\配合廠商

rem =======車 床 單 位 =======
mkdir %1\車床\SOP
mkdir %1\車床\機台程式

rem =======銑 床 單 位 =======
mkdir %1\銑床\SOP
mkdir %1\銑床\機台程式

rem =======後 加 工 單 位 =======
mkdir %1\後加工\SOP