文件目录树生成

@echo off
color 2E
MODE con: COLS=40 LINES=20
title %date% %time:~,8%
cls
::================================================================
echo.
echo.
echo 　　BAT当前目录生成很漂亮的结构树

echo.
echo.
echo.
echo 　　选 0 拖动任意目录的结构树
echo.
echo 　　选 1 当前目录的结构树
echo.
echo 　　选 2 每个下级目录文件
echo.
echo 　　选 3 当前目录的目录树
echo.
echo.
set /p p=　请选择(0.1.2.3):　
if %p%==0 goto XX
if %p%==1 goto AA
if %p%==2 goto BB
if %p%==3 goto CC
:AA
CLS
rem 在当前目录生成很漂亮的结构树
::当前目录名获取==============
set "lj=%~p0"
set "lj=%lj:= %"
for %%a in (%lj%) do set wjj=%%a
echo 文件夹是:%wjj%
=================================
tree /f > "%wjj%目录的结构树.TXT"
echo.
echo.
=================================
echo.
cls
echo　　　 完成，3秒后自动退出……
ping 127.0.0.1 -n 3 -w 1000 > nul
goto out
================================
:out
cls
exit
:BB
CLS
rem 象DIR命令一样,不过每个下级目录文件也列出
::当前目录名获取==============
set "lj=%~p0"
set "lj=%lj:= %"
for %%a in (%lj%) do set wjj=%%a
echo 文件夹是:%wjj%
=================================
tree /f > "%wjj%下级目录文件.TXT"
echo.
echo.
=================================
echo.
cls
echo　　　 完成，3秒后自动退出……
ping 127.0.0.1 -n 3 -w 1000 > nul
goto out
================================
:out
cls
exit
:CC
CLS
rem 简洁地列出目录当前目录文件
::当前目录名获取==============
set "lj=%~p0"
set "lj=%lj:= %"
for %%a in (%lj%) do set wjj=%%a
echo 文件夹是:%wjj%
=================================
tree /f > "%wjj%目录的目录树.TXT"
=================================
echo.
cls
echo　　　 完成，3秒后自动退出……
ping 127.0.0.1 -n 3 -w 1000 > nul
goto out
================================
:out
cls
exit
=================================
:XX
CLS
rem 象DIR命令一样,不过每个下级目录文件也列出
echo 请拖动文件夹到此窗口......
echo 拖动文件夹后按确定继续......
set /p Tmp=
cd /d %Tmp%
tree /f >"%Tmp%目录的结构树.TXT"
echo.
=================================
echo.
cls
echo　　　 完成，3秒后自动退出……
ping 127.0.0.1 -n 3 -w 1000 > nul
goto out
================================
:out
cls
exit
==============================