批處理如何實(shí)現(xiàn)tree目錄樹鼠標(biāo)懸停展開單擊打開

批處理如何實(shí)現(xiàn)tree目錄樹鼠標(biāo)懸停展開單擊打開和附件的 .txt 放在同一文件夾，相當(dāng)于把 tree 命令的目錄樹做成了能自動(dòng)展開的菜單。但是有一個(gè)巨大的問題，鼠標(biāo)移開就會(huì)收回，很蛋疼。。。。

@echo off&SetLocal EnableDelayEdexpansion&cd /d %~dp0
copy模板.txt 使用.html
for /f skip=3 delims= %%a in ('tree') do (
set str=%%a
set str=!str:├=!
set str=!str:─=!
set str=!str:└=!
set str=!str:│=!
if not !str: =!== (
rem 循環(huán)的第一、二次特殊處理
if not defined qstr (set qstr=!str! & call :1 & set qn=!n!
) else (
if defined hstr set qstr=!hstr!
set hstr=!str! & call :1 & set hn=!n!
:2
rem 截取文件名、設(shè)置路徑
set /a zf=4*qn
for%%i in (!zf!) do (set cqstr=!qstr:~%%i!)
set p!qn!=!cqstr!
set pat=
for /l %%i in (1 1 !qn!) do (set pat=!pat!!p%%i!)
set pat=!pat:~1!
set /a cn=qn-hn
rem 判斷、輸出
(if not !qn! lss !hn! (
echo ^<li^>^<a href=%~dp0!pat!^>!cqstr!^</a^>^</li^> 
for /l %%a in (1 1 !cn!) do (echo ^</ul^>&echo ^</li^>)
) else (
echo ^<li^>^<a href=%~dp0!pat!^>!cqstr!^</a^> & echo ^<ul^> 
))>>使用.html
set qn=!hn!
)
)
)
rem 輸出最后一行
if not defined flag set flag=1 & set qstr=!hstr! & set hn=1 & goto :2
(echo ^</ul^>&echo ^</div^>&echo ^</body^>&echo ^</html^> )>>使用.html
pause 
:1
rem 獲取級(jí)數(shù)
for /l%%i in (01 33) do (
if not !str:~%%i,4!==(
set /a n=(%%i+3)/4
goto :eof
)
)
nclick="copycode($('code0'));">復(fù)制代碼