标题: 如何生成tree命令格式的目录网页
[打印本页]
作者: upsco
时间: 2007-11-22 10:26
标题: 如何生成tree命令格式的目录网页
就是把tree命令输出的结果,生成网页,且点击网页中的文件或目录名打开相应的文件及目录
作者: zh159
时间: 2007-11-22 10:48
搜索 “tree命令的htm版”
作者: upsco
时间: 2007-11-22 10:53
谢谢
作者: mkd
时间: 2007-11-23 21:42
标题: 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
作者: skydog
时间: 2007-11-26 14:45
标题: tree命令转化为htm问题解决,谢谢!
非常感谢,您的代码非常好用!
作者: eech
时间: 2007-12-14 20:24
谢谢4楼给的代码
作者: yjq635
时间: 2007-12-21 10:43
达人们,,有没有办法点击链接直接打开文件啊,,比如
set obshell=wscript.createobject("wscript.shell")
obshell.run ("E:\yjq-MOVE\还好\金刚归来.rmvb"),,true
????