中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-06 23:48
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 如何生成tree命令格式的目录网页 查看 822 回复 6
楼 主 如何生成tree命令格式的目录网页 发表于 2007-11-22 10:26 ·  中国 湖南 长沙 雨花区 电信
初级用户
积分 67
发帖 32
注册 2007-11-19 12:34
18年会员
UID 103118
性别 男
状态 离线
就是把tree命令输出的结果,生成网页,且点击网页中的文件或目录名打开相应的文件及目录
2 发表于 2007-11-22 10:48 ·  中国 广西 玉林 博白县 电信
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210
状态 离线
搜索 “tree命令的htm版”
3 发表于 2007-11-22 10:53 ·  中国 湖南 长沙 雨花区 电信
初级用户
积分 67
发帖 32
注册 2007-11-19 12:34
18年会员
UID 103118
性别 男
状态 离线
谢谢
4 Unicode Version 发表于 2007-11-23 21:42 ·  中国 台湾 中华电信(HiNet)数据中心
初级用户
积分 109
发帖 30
注册 2007-09-05 14:27
18年会员
UID 96621
性别 男
状态 离线

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 条) 点击查看详情
评分人分数时间
everest79 +15 2007-12-26 03:27
5 tree命令转化为htm问题解决,谢谢! 发表于 2007-11-26 14:45 ·  中国 云南 昆明 电信
新手上路
积分 13
发帖 5
注册 2007-09-20 08:50
18年会员
UID 97849
性别 男
状态 离线
非常感谢,您的代码非常好用!
6 发表于 2007-12-14 20:24 ·  中国 安徽 芜湖 电信
高级用户
★★★
积分 906
发帖 346
注册 2006-07-10 09:58
20年会员
UID 58334
性别 男
状态 离线
谢谢4楼给的代码
7 发表于 2007-12-21 10:43 ·  中国 安徽 合肥 电信
初级用户
积分 109
发帖 42
注册 2007-05-12 09:38
19年会员
UID 88253
性别 男
状态 离线
达人们,,有没有办法点击链接直接打开文件啊,,比如
set obshell=wscript.createobject("wscript.shell")
obshell.run ("E:\yjq-MOVE\还好\金刚归来.rmvb"),,true
????
论坛跳转: