@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
注意：更改選中部分的代碼可以更改程序的功能，不僅僅可以替換空格，還可以替換文件名中的其他文字。
