@echo off
color f2
echo 我可以将【文件夹】目录及子目录[去除文件名空格]整理到-目录表格.xls
pause 
 :--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
 :--------------------------------------
setlocal enabledelayedexpansion
 :--------------------------------------
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn: =!
echo 替换后：!fn!
:将fn字符串中的每一个空格（" "）替换成空字符（""）。
ren "%%j" !fn!
)
:--------------------------------------
set pp=%~dp0
echo %pp%
 :--------------------------------------
for /d /r . %%i in (*) do (
:更新路径，将有空格的路径改为除去空格后的路径，才能进入
for /f "tokens=*" %%l in (!i!) do (
set pt=%%l
set pt=!pt: =!
set i=!pt!
)
echo 路径 %%i
cd %%i
:-------------------
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo !fn!
set fn=!fn: =!
echo !fn!
:将fn字符串中的每一个“ ”替换成“”空字符。
ren "%%j" !fn!
)
)
:--------------------------------------
cd %pp%
echo %pp%
for /d /r . %%k in (*) do echo %%k>>仅文件夹目录.xls
echo --------------------------------------------------------------
echo 已经生成【仅文件夹目录.xls】--包括子文件夹
dir /b /s >所有文件目录.xls
echo 已经生成【所有文件目录.xls】--包括子文件夹
:--------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
pause
复制代码

set fn=!fn: =!
复制代码

set fn=!fn:-=!
复制代码

第11行
setlocal enabledelayedexpansion
文件（夹）名含有"!"，导致 找不到路径

第13行
tokens=*
文件（夹）名以空格开头，导致 找不到路径

第13行
dir /b 没有排除批处理文件自身，可能导致批处理中断

第18行
:将fn字符串中的每一个空格（" "）替换成空字符（""）。
标签写在for内部，可能引起闪退

第25行
for /d /r
更改子文件夹名后，再处理孙文件夹，可能导致 找不到路径

第25、27行
for /d /r . %%i in (*) do (
for /f "tokens=*" %%l in (!i!) do (
没有见过 !i! 这种用法，内层for 应该无效
复制代码

for %%a in (1) do (
	for %%b in (2) do (
		echo %%a%%b
	)
)
复制代码