@echo off
:: 關(guān)閉命令行回顯，避免執(zhí)行過(guò)程中顯示冗余指令，提升腳本整潔度
:: 遍歷文件夾，在每個(gè)文件夾下以文件夾的名為名建立文本文件
:: code by jm 2006-9-8  腳本作者與創(chuàng)作時(shí)間標(biāo)注
:: for /r 表示遞歸遍歷當(dāng)前目錄及所有子目錄，%%i 為遍歷的目錄變量
for /r %%i in (.) do (
   :: cd.>  生成空文件，%%i為當(dāng)前遍歷的目錄路徑，%%~ni為目錄名（去除路徑后綴），最終生成同名txt文件
   cd.>"%%i\%%~ni.txt"
)
pause
:: 暫停腳本執(zhí)行，等待用戶(hù)按任意鍵退出，避免命令行窗口一閃而過(guò)

@echo off
:: for /L 表示數(shù)值循環(huán)，%%g為循環(huán)變量，1,1,10代表起始值1、步長(zhǎng)1、終止值10，循環(huán)執(zhí)行10次
for /L %%g in (1,1,10) do (
    :: md 為創(chuàng)建目錄命令，生成Folder1-Folder10主目錄
    md Folder%%g
    :: 在主目錄下創(chuàng)建filesin子目錄
    md Folder%%g\filesin
    :: 在主目錄下創(chuàng)建filesout子目錄
    md Folder%%g\filesout
) 
::在當(dāng)前目錄下創(chuàng)建十個(gè)文本文件，循環(huán)邏輯同上，echo.生成空內(nèi)容，重定向?yàn)閠xt文件
for /l %%a in (1 1 10) do echo.>%%a.txt 
:: 再次關(guān)閉回顯（冗余指令，保留原文內(nèi)容不做刪減）
@echo off

rem 此BAT文件名一定不能是"tree.bat",否則tree命令會(huì)實(shí)效,不知道為什么?但用"dir.bat"作文件名卻可以。
rem 注釋?zhuān)簉em為批處理注釋指令，作用等同于::，此處標(biāo)注腳本命名禁忌
rem 可能是因?yàn)橄到y(tǒng)目錄有"tree.com",系統(tǒng)會(huì)混淆吧。
rem 在當(dāng)前目錄生成很漂亮的結(jié)構(gòu)樹(shù)，tree /f 顯示目錄結(jié)構(gòu)+所有文件，重定向?qū)懭隩ree_of_Folder.txt
tree /f > Tree_of_Folder.txt

rem 像Dir命令一樣,不過(guò)每個(gè)下級(jí)目錄文件也列出，dir /s 遞歸顯示當(dāng)前目錄及所有子目錄文件，寫(xiě)入List_of_Dir.txt
Dir /S > List_of_Dir.txt

rem 簡(jiǎn)潔地列出目錄當(dāng)前目錄文件，dir /d 按列顯示當(dāng)前目錄文件/目錄，寫(xiě)入Name_of_Folder.txt
Dir /d > Name_of_Folder.txt

@echo off

@echo on 
::開(kāi)啟命令行回顯，可查看腳本執(zhí)行細(xì)節(jié)
::注意:所讀取的txt文本文件編碼必須為ANSI,其它格式(含UTF-8)顯示為亂碼。 
::Ren 為文件重命名命令，將當(dāng)前目錄所有txt文件重命名為dept_list.txt
Ren *.txt dept_list.txt 
@echo off 
::跳轉(zhuǎn)到Note標(biāo)簽，執(zhí)行注釋說(shuō)明內(nèi)容
Goto Note 
::Note標(biāo)簽注釋?zhuān)簉en命令使用規(guī)則，原文核心注意事項(xiàng)，完整保留
新文件名前不可以加上盤(pán)符和路徑，因?yàn)樵撁钪荒軐?duì)同一盤(pán)上的文件更換文件名; 
允許使用通配符更改一組文件名或擴(kuò)展名; 
不能為要修改的目標(biāo)文件指定新的盤(pán)符和文件夾; 
:note 
::for /f 讀取文本文件內(nèi)容，delims= 取消分隔符，避免文件名含空格報(bào)錯(cuò)
for /f "delims=" %%a in (dept_list.txt) do ( 
    ::開(kāi)啟環(huán)境變量本地化，防止變量污染全局環(huán)境
    setlocal 
    ::將讀取的文本內(nèi)容賦值給str變量
    set "str=%%a" 
    ::根據(jù)讀取的內(nèi)容生成同名txt文件
    cd.> "%%a.txt" 
    ::關(guān)閉環(huán)境變量本地化，清空局部變量
    endlocal 
) 
::暫停并退出腳本
Pause&Exit

Goto Note 
::setlocal與endlocal核心注釋?zhuān)暮诵闹R(shí)點(diǎn)，完整保留
setlocal 與 endlocal相當(dāng)于一個(gè)局部變量,只不過(guò)它繼承了原來(lái)老的變量中的值。setlocal就是開(kāi)啟環(huán)境變量本地化,其實(shí)就是說(shuō)當(dāng)開(kāi)啟這個(gè)命令后,所有新設(shè)置的環(huán)境變量都只在本次運(yùn)行時(shí)有效,而endlocal則是結(jié)束環(huán)境變量本地化,當(dāng)然必須先是開(kāi)啟了才會(huì)起作用,當(dāng)運(yùn)行endlocal后,先前設(shè)置的所有變量將會(huì)被清空。 
::setlocal/endlocal兩種核心用法詳解
setlocal 或 endlocal 的情況是： 
1、變量延遲開(kāi)關(guān) 
setlocal   enabledelayedexpansion 
::開(kāi)啟變量延遲，解決循環(huán)中變量賦值不生效問(wèn)題
setlocal   disabledelayedexpansion 
::關(guān)閉變量延遲
2、變量本地化 示例代碼： 
set v=123 
echo %v% 
pause 
setlocal 
set v=abc 
echo %v% 
pause 
endlocal 
echo %v% 
:Note 
@echo on 
::編碼注意事項(xiàng)重申，完整保留原文內(nèi)容
::注意:所讀取的txt文本文件編碼必須為ANSI,其它格式(含UTF-8)顯示為亂碼。 
Ren *.txt dept_list.txt 
@echo off 
Goto Note 
::ren命令使用規(guī)則重申
新文件名前不可以加上盤(pán)符和路徑，因?yàn)樵撁钪荒軐?duì)同一盤(pán)上的文件更換文件名; 
允許使用通配符更改一組文件名或擴(kuò)展名; 
不能為要修改的目標(biāo)文件指定新的盤(pán)符和文件夾; 
:note 
::讀取文本列表，批量創(chuàng)建目錄
for /f "delims=" %%a in (dept_list.txt) do ( 
    setlocal 
    set "str=%%a" 
    ::根據(jù)文本內(nèi)容批量創(chuàng)建目錄
    md "%%a" 
    endlocal 
) 
Pause&Exit

::MD命令官方定義，完整保留原文內(nèi)容
功能：創(chuàng)建新的子目錄　
類(lèi)型：內(nèi)部命令　 　　
格式：MD[盤(pán)符：][路徑名]〈子目錄名〉　
 　　
使用說(shuō)明：　 　　
（1）“盤(pán)符”：	指定要建立子目錄的磁盤(pán)驅(qū)動(dòng)器字母，若省略，則為當(dāng)前驅(qū)動(dòng)器；　 　　
（2）“路徑名”：	要建立子目錄的上級(jí)目錄名，若缺省則建在當(dāng)前目錄下。 
::繁體中文提示，完整保留原文內(nèi)容
@echo 請(qǐng)先將要新建文件夾的名稱(chēng)保存到"Folder.List.txt"中,註：(壹個(gè)文件夾名占壹行,且不能夠使用空格)。
@pause
::讀取Folder.List.txt文本列表，批量創(chuàng)建目錄
@for /f %%a in (Folder.List.txt) do (md %%a)
@echo 批量新建文件夾完成。
@pause