批量提取所有文件夹的文件夹文件名列表

@echo off
echo 先去掉文件名空格再列出目录到Excel
setlocal enabledelayedexpansion

for /f "tokens=*" %%i in ('dir/b') do (
set fn=%%i
set fn=!fn: =!
ren "%%i" !fn!
)

echo 列出目录到Excel
dir /b/s>所有目录.txt

:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
echo 请查看：当前文件夹下的【所有目录.txt】
echo ----
echo ----

pause