如何生成tree命令格式的目录网页 - 中国DOS联盟论坛


if exist temp.vbs goto MakeHTML
echo Set objFSO = CreateObject("Scripting.FileSystemObject") > temp.vbs
echo Set objFile = objFSO.CreateTextFile("list.htm",,true) >> temp.vbs
temp.vbs

cmd /u /c "%0"
del temp.vbs
start list.htm
goto :eof


:MakeHTML
echo ^<html^>^<head^>^<style type="text/css"^>^<!-- >> list.htm
echo ul{list-style:none;}a{text-decoration:none;} >> list.htm
echo a{background-color:#eff;padding:0 20px;} >> list.htm
echo a.folder{background-color:#fcf;}--^> >> list.htm
echo ^</style^>^<body^>^<ul^> >> list.htm

for %%a in (*) do (
echo ^<li^>^<a href="file:///%%~fa"^>%%~nxa^</a^>  >> list.htm )

for /d %%a in (*) do (
	set folder="%%~fa"
	call :SubDir %%folder%% )

echo ^</ul^>^</body^>^</html^> >> list.htm
goto :eof


:SubDir
for    %%a in (%1) do (
echo ^<li^>^<a class="folder" href="file:///%%~a"^>%%~nxa^</a^>^<ul^> >> list.htm
)

for    %%a in (%1\*) do (
echo ^<li^>^<a href="file:///%%~a"^>%%~nxa^</a^>  >> list.htm )

for /d %%a in (%1\*) do (
	set folder="%%~fa"
	call :SubDir %%folder%% )
echo ^</ul^> >> list.htm

第1楼　upsco	发表于 2007-11-22 10:26
初级用户　发帖 32　积分 67
如何生成tree命令格式的目录网页就是把tree命令输出的结果，生成网页，且点击网页中的文件或目录名打开相应的文件及目录

第2楼　zh159	发表于 2007-11-22 10:48
金牌会员　发帖 1,467　积分 3,687
搜索 “tree命令的htm版”

第3楼　upsco	发表于 2007-11-22 10:53
初级用户　发帖 32　积分 67
谢谢

第4楼　mkd	发表于 2007-11-23 21:42
初级用户　发帖 30　积分 109
Unicode Version if exist temp.vbs goto MakeHTML echo Set objFSO = CreateObject("Scripting.FileSystemObject") > temp.vbs echo Set objFile = objFSO.CreateTextFile("list.htm",,true) >> temp.vbs temp.vbs cmd /u /c "%0" del temp.vbs start list.htm goto :eof :MakeHTML echo ^<html^>^<head^>^<style type="text/css"^>^<!-- >> list.htm echo ul{list-style:none;}a{text-decoration:none;} >> list.htm echo a{background-color:#eff;padding:0 20px;} >> list.htm echo a.folder{background-color:#fcf;}--^> >> list.htm echo ^</style^>^<body^>^<ul^> >> list.htm for %%a in () do ( echo ^<li^>^<a href="file:///%%~fa"^>%%~nxa^</a^> >> list.htm ) for /d %%a in () do ( set folder="%%~fa" call :SubDir %%folder%% ) echo ^</ul^>^</body^>^</html^> >> list.htm goto :eof :SubDir for %%a in (%1) do ( echo ^<li^>^<a class="folder" href="file:///%%~a"^>%%~nxa^</a^>^<ul^> >> list.htm ) for %%a in (%1\) do ( echo ^<li^>^<a href="file:///%%~a"^>%%~nxa^</a^> >> list.htm ) for /d %%a in (%1\) do ( set folder="%%~fa" call :SubDir %%folder%% ) echo ^</ul^> >> list.htm

第5楼　skydog	发表于 2007-11-26 14:45
新手上路　发帖 5　积分 13
tree命令转化为htm问题解决，谢谢！非常感谢，您的代码非常好用！

第6楼　eech	发表于 2007-12-14 20:24
高级用户　发帖 346　积分 906
谢谢４楼给的代码

第7楼　yjq635	发表于 2007-12-21 10:43
初级用户　发帖 42　积分 109
达人们，，有没有办法点击链接直接打开文件啊，，比如 set obshell=wscript.createobject("wscript.shell") obshell.run ("E:\yjq-MOVE\还好\金刚归来.rmvb"),,true ？？？？