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

[victor624]

作者: getter

1.txt 的內容是因為原本第一層資料夾名稱的號碼可能是不連號的關係嗎？
2.再來是用 for /f 的 參數沒有給當然會不行 ... 先參考一下我先前貼的那個
字典檔的法 ...

剩下的等我的屁屁(條狀物要大出來了 ... )好點再來詳細弄

回 getter
我詳細說明這次新增的功能
首先選第3項 會要求輸入資料夾名稱(第一層) 假如是AAA
之後她會帶入TXT檔內部的資料夾名稱(第二層)
之後AAA底下會產生TXT的編號 TXT底下會帶出:Make_Dirs所有子資料夾

因為這些編號不連貫 所以必須透過TXT檔帶入
選項1-2功能不變 主要是給編號連續的時候使用的
請指教 謝謝!!

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


0402-333
0402-354
0402-478
0402-909
0402-950
0402-951
0402-974
0402-984
0402-945
0403-039
0403-079
0404-170
0404-179
0404-199
0404-215
0404-218
0404-203
0404-207
0404-218
0404-219
0404-242
0404-247
0405-052
0405-062
0405-205
0405-219
0405-245
0405-263
0405-272
0405-319
0405-320
0405-340
0405-368
0405-379
0405-381
0405-383
0405-388
0405-440
0405-446
0409-066
0410-196
0410-200
0413-136
0413-145
0423-042
0423-359
0423-359
0423-393
0423-395
0423-411
0423-450
0436-355
0436-659
0441-893
0443-061
0443-063
0444-263
0444-264
0470-915
0470-918
0492-029
0492-075
0492-077
0492-078
0492-085
0492-090
0492-110
0492-111


0502-042
0502-164
0502-258	
0502-273
0502-321
0502-348
0502-421
0502-423
0502-517
0502-521
0502-522
0502-766
0502-797
0502-828
0502-833
0502-857
0502-967(1402-467)
0502-969(1402-485)
0502-970(1402-487)
0502-973(1402-499)
0502-976+8
0502-999
0503-040_041
0503-311(0403-155)
0503-321(0403-151)
0503-456+7
0503-462
0503-464
0503-483
0503-546+7
0503-628+9
0503-644
0503-748+9
0504-610
0504-651
0504-656+7
0504-676
0504-678
0504-746+9
0504-757
0505-414
0505-773+4
0505-776+7
0541-842
0544-010+011
0570-345


0605-713
0605-858
0605-906
0605-907
0605-908(1619-124)
0605-927
0605-928
0605-932
0605-943
0605-969
0607-711
0607-712
0607-716+717
0607-806_7
0608-610
0613-011
0613-012
0619-907
0630-273
0645-606
0645-632
0648-787
0675-030


0702-995
0708-577
0745-368

目前改寫後第二層之後資料夾可建立 但是第一層
手動輸入資料夾名稱 出不來 !!!

@Echo off
cd /d %~dp0 

@Echo off
set titles=大量新增資料夾 V6.0版
echo 大量新增資料夾 64.0版

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
cd /d %~dp0 
set name=
cls
echo. %titles%
echo.
echo 請輸入資料夾名稱:
set /p name=
echo.
echo.

for /F "eol=; skip=1 tokens=1 delims=," %%V in ( MDs.txt ) do (
call:Make_Dirs %%V
 )
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