逐个目录显示文件名代码

vb Code复制内容到剪贴板

<html lang="zh-CN">
<head>
<meta charset="gb2312" />
<%
Dim fso, f, f1, fc,fp,fs,vf
Set fso = CreateObject("Scripting.FileSystemObject")
fp=server.MapPath("/") & "\"
Set f = fso.GetFolder(fp)
Set fc = f.SubFolders
For Each f1 in fc
i=i+1
%>
<br>目录<%=i%><%=f1.name%>
<%
Set fs = f1.Files
For Each vf in fs
%>
<br>文件名/<%=f1.name%>/<%=vf.name%>
<%
next
next%><br>根目录<%
Set fc = f.Files
For Each f1 in fc
%>
<br><%=f1.name%>
<%
next
%>

<< 很好用的二级联动下拉框国外空间乱码显示问题的解决 >>

查看所有评论