批处理之家 » BAT求助&讨论 » 批处理如何遍历目录及子目录下的所有文件并生成网页链接？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 23
积分: 43
技术: 0
捐助: 0
注册时间: 2011-10-11

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2023-2-27 18:00 | 只看该作者

[文件操作] 批处理如何遍历目录及子目录下的所有文件并生成网页链接？

@echo off
set  lujing="C:\Program Files\Internet Explorer"
cd /d %lujing%
echo ^<tr^>^<td colspan="2" class="mulu"^>%lujing%^</td^>^</tr^>>>c:\aaaaa.html
for %%b in (*.*) do (
echo ^<tr^>^<td^>^<a href="/office/%%b"^>%%b^</a^>^</td^>^<td^>^<a href="/office/%%b"^>获取文件^</a^>^</td^>^</tr^>>>c:\aaaaa.html
)
复制代码

目前这个不能对文件夹内子目录的文件生成超链接，能帮我改成子目录下的文件也都生成超链接吗？
如果是子目录那这块的路径也需要添加个子目录的名称了 <a href="/office/子目录/%%b"^>

Rank: 6 Rank: 6

帖子: 826
积分: 1629
技术: 54
捐助: 20
注册时间: 2008-11-3

2楼

发表于 2023-2-27 18:32 | 只看该作者

还是厚颜无耻的推荐一下自己的
http://www.bathome.net/thread-6046-1-1.html
有源码

目的，学习批处理

Rank: 5 Rank: 5

帖子: 657
积分: 777
技术: 34
捐助: 0
注册时间: 2023-2-9

3楼

发表于 2023-2-27 18:39 | 只看该作者

用vbs行不？（有现成的）doge

你好

Rank: 1

帖子: 23
积分: 43
技术: 0
捐助: 0
注册时间: 2011-10-11

4楼

发表于 2023-2-27 19:02 | 只看该作者

回复 3# jyswjjgdwtdtj

可以，谢谢

Rank: 5 Rank: 5

帖子: 657
积分: 777
技术: 34
捐助: 0
注册时间: 2023-2-9

5楼

发表于 2023-2-27 19:10 | 只看该作者

回复 4# amio555

不是这会是一个表格欸

你好

Rank: 1

帖子: 23
积分: 43
技术: 0
捐助: 0
注册时间: 2011-10-11

6楼

发表于 2023-2-27 19:20 | 只看该作者

回复 5# jyswjjgdwtdtj

哦，那不行。求助@Batcher

Rank: 5 Rank: 5

帖子: 657
积分: 777
技术: 34
捐助: 0
注册时间: 2023-2-9

7楼

发表于 2023-2-27 19:53 | 只看该作者

本帖最后由 jyswjjgdwtdtj 于 2023-3-1 17:36 编辑

回复 1# amio555

稍微改一下
用的是ul，li
可以无限多嵌套子文件夹

set document=	createobject("htmlfile")
set fso=		createobject("scripting.filesystemobject")
foldername=inputbox("文件夹地址")
set nowfolder=fso.getfolder(foldername)
document.write "<html><head></head><body>"&vbcrlf&_
		"<a href="&nowfolder.path&">"&nowfolder.name&"</a>"&vbcrlf&_
		"<ul id=filetree></ul></body></html>"
set filetreeul=document.getelementbyid("filetree")
filetree nowfolder,filetreeul
sub filetree(fdobject,nowelement)
	set files=fdobject.files
	set folders=fdobject.subfolders
	for each file in files
		set newli=document.createelement("LI")
		set newa=document.createelement("A")
		newa.href=file.path
		newa.classname="File"
		newa.innertext=fso.getfilename(file.path)
		newli.appendchild(newa)
		nowelement.appendchild(newli)
	next
	for each folder in folders
		set newli=document.createelement("LI")
		set newa=document.createelement("A")
		newa.href=folder.path
		newa.innertext=folder.name
		newa.classname="Folder"
		newli.appendchild(newa)
		set newul=document.createelement("UL")
		filetree folder,newul
		newli.appendchild(newul)
		nowelement.appendchild(newli)
	next
end sub
set f=fso.createtextfile("filetree.html",true,true)
f.writeline "<html>"&vbcrlf&document.getelementsbytagname("html")(0).innerhtml&vbcrlf&"</html>"
f.close
复制代码

生成如下

<html>
<HEAD></HEAD>
<BODY><A href="C:\Users\admin\Documents\mine Files>mine Files</A> 
<UL id=filetree>
<LI><A href="C:\Users\admin\Documents\mine Files\demon.tw包含下载用vbs.zip">demon.tw包含下载用vbs.zip</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\《全职剑修》.txt">《全职剑修》.txt</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\《我在诸天轮回封神》.txt">《我在诸天轮回封神》.txt</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\《我的属性修行人生》.txt">《我的属性修行人生》.txt</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\《神权之上》.txt">《神权之上》.txt</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\《这游戏也太真实了》.txt">《这游戏也太真实了》.txt</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\《青莲之巅》.txt">《青莲之巅》.txt</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文本文档.bat">新建文本文档.bat</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\Audio&amp;Video">Audio&amp;Video</A>
<UL></UL></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\mine">mine</A>
<UL></UL></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\Files">Files</A>
<UL>
<LI><A href="C:\Users\admin\Documents\mine Files\Files\filetree.html">filetree.html</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\Files\新建文本文档.html">新建文本文档.html</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\Files\新建文本文档.vbs">新建文本文档.vbs</A></LI></UL></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹">新建文件夹</A>
<UL>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹\1.bat">1.bat</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹\1.bmp">1.bmp</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹\1.ps1">1.ps1</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹\1.vbs">1.vbs</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹\b.vbs">b.vbs</A></LI>
<LI><A href="C:\Users\admin\Documents\mine Files\新建文件夹\新建文本文档.bat">新建文本文档.bat</A></LI></UL></LI></UL></BODY>
</html>
复制代码

你好

Rank: 1

帖子: 19
积分: 37
技术: 0
捐助: 0
注册时间: 2022-2-2

8楼

发表于 2023-3-1 09:15 | 只看该作者

学习了，都好厉害