关于作者

如何获得站点根目录下所有文件夹名称（包括子文件夹名称）？

上一篇 / 下一篇 2006-11-12 00:34:01 / 个人分类：天天向上

查看( 1025 ) / 评论( 8 )

如题，用ASP代码

我写了一下只能获得根目录下的文件夹名称，不能获得子文件夹的名称，请求帮助！！

<%
Dim ObT,WWWRoot
ObT = "Sc"&DEfd&"rip"&DEfd&"ting"&DEfd&".F"&DEfd&"ileS"&DEfd&"yste"&DEfd&"mObj"&DEfd&"ect"
WWWRoot  = Server.MapPath("/")

Function Zyqf_RePath(S)
  Zyqf_RePath=Replace(S,"\","\\")
End Function

Class Zyqf_LBF
  Dim Zyqf_CF
  Private Sub Class_Initialize
SET Zyqf_CF=CreateObject(ObT)
  End Sub

  Private Sub Class_Terminate
Set Zyqf_CF=Nothing
  End Sub

  Function Zyqf_ShowFile(Path)
  Set Zyqf_FOLD=Zyqf_CF.GetFolder(Path)

LRR="<SELECT name=""path"" type=""text"" style=""border:1px solid #999;WIDTH: 200px""><OPTION value=""""
selected>****请选择目录****</OPTION><OPTION value=""/"">整个站点</OPTION><OPTION value=""."">当前目录</OPTION>"
  For Each Zyqf_F in Zyqf_FOLD.subfolders
LRR=LRR&"<OPTION value='"&Zyqf_F.Name&"'>"
LRR=LRR&Zyqf_F.Name&"</OPTION>"

  Next
LRR=LRR&"</SELECT>"
Response.Write LRR

  Set Zyqf_FOLD=Nothing
  End function
End Class

Set ABC=New Zyqf_LBF:ABC.Zyqf_ShowFile(Zyqf_RePath(WWWRoot)):Set ABC=Nothing
%>

[ 本帖最后由 myhome 于 2006-11-15 21:01 编辑 ]

论坛模式推荐收藏分享给好友推荐到圈子管理

TAG:

myhome 发布于2006-11-12 08:34:46

zy3287 发布于2006-11-12 10:17:08: 有有有点乱

xfdipzone 发布于2006-11-12 20:36:50: <%无忧脚本a\t(O!Mw4v
  Dim fso,objfolder,objfile,strpath
  strpath=server.mappath(".")

P|
L*D
@8v
S.QY;[;e  set fso=server.createobject("Scripting.FileSystemObject")
|9X*m2x){*j  无忧脚本C/B%NTO Mxt4XX
  call bl(strpath)
!Le'c6B)DB
  function bl(strpath)-^)fT.Fp"{9Y
  set objfolder=fso.getfolder(strpath)
"?Xpkj?S无忧脚本
  Response.write "文件夹路径：" & strpath & "<br><br>"6N,J$f&CW#[`}il`a
无忧脚本!Pq)} KRBKo
  for each objfile in objfolder.files
Response.write "<font color=""#0066CC"">文件名：" & objfile.name & "</font><br>"
  next
t)H5xh:E%G-F2y无忧脚本3w$Qm\3J/F]w
  for each objsubfolder in objfolder.subfolders
4t/YV)f.`0AOH无忧脚本 Response.write "<font color=""#FF0000"">文件夹：" & objsubfolder.name & "</font><br>"
j1b|w&m-Y$bf无忧脚本 call bl(strpath & "\" & objsubfolder.name)
#^"HF9LfM8S  next
www.51js.com?bQ#j)`
lup
  End function
%>

myhome 发布于2006-11-12 22:36:46: QUOTE:
原帖由 xfdipzone 于 2006-11-12 20:36 发表www.51js.comYfq&Qoqd!l
<%www.51js.com)b IrZIzDG.`"]
  Dim fso,objfolder,objfile,strpath
2\AXhU&Y  strpath=server.mappath(".")

4D._R(sg1Qm3q0Q}www.51js.com  set fso=server.createobject("Scripting.FileSystemObject")www.51js.com^k'b2}1Y(@3[

  call bl(strpath)

  functio ...

无忧脚本;o0b7q8R(zD6k
感谢xfdipzone斑竹！！

但是：我只需要获得文件夹的名称，不需要获得文件夹下所有文件的名称
www.51js.com%b+^
|-]$?f
例如，站点根目录下有这样的文件夹：

H
As
Ye y]www.51js.com
Tva'K.k
^无忧脚本 bbs
bbs\chkNum
bbs\chkNum\s
bbs\editor
p&r&HAHuwww.51js.com bbs\editor\face
zu1K;R-h&BniEwww.51js.com ABC
ABC\123
ABC\123\SS
)S_rW|r
|www.51js.com ABC\123\SS\ZZ
…………
j^.e$^M[www.51js.com
w4Vr|sqrvwww.51js.com我现在需要获得全部的文件夹名称，并且以下面这样的格式输出显示：

pn8H*Ri)Yv<SELECT>www.51js.comXUm1N2\eN
<OPTION value="" selected>****请选择目录****</OPTION>.W:Gg yR
<OPTION value="/">整个站点</OPTION>
<OPTION value=".">当前目录</OPTION>
<OPTION value="bbs">bbs</OPTION> 无忧脚本%^8m#A^N8Z/|'R}
<OPTION value="bbs\chkNum">bbs\chkNum</OPTION>
<OPTION value="bbs\chkNum\s">bbs\chkNum\s</OPTION> www.51js.comTYbM;rE
<OPTION value="bbs\editor">bbs\editor</OPTION> $L%wFj;e,b+o$@&C
<OPTION value="bbs\editor\face">bbs\editor\face</OPTION> 无忧脚本mEZ`
y
h!G
<OPTION value="ABC">ABC</OPTION>
<OPTION value="ABC\123">ABC\123</OPTION>
<OPTION value="ABC\123\SS">ABC\123\SS</OPTION>
<OPTION value="ABC\123\SS\ZZ">ABC\123\SS\ZZ</OPTION> www.51js.coms;trV_7U&V|-D
………………
</SELECT>

{/l(j
l
hwww.51js.com折腾了N 天一直没搞成功，请高手们帮助！感激不尽！

myhome 发布于2006-11-12 22:45:08: 参考了xfdipzone斑竹的代码，重新写也搞不定，郁闷中！www.51js.comaoe3Q`O

<% N_k,~}
Dim objFso
Dim objFolder
&\$j
S)?e`GQqx-fwww.51js.com
set objFso = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFso.GetFolder(Request.ServerVariables("APPL_PHYSICAL_PATH"))
%>无忧脚本Scl8^
AC
<html><head></head><body>
BO7`rX无忧脚本<table width="100%" cellpadding="1" cellspacing="0" border="0" class="InfoGridTitle">无忧脚本6x)\]B1R
<tr class="InfoLine">www.51js.comW1d*[]r3H FRk0i2u4v
<td class="Title">
fI8z,@8g'Kn?.J\i 文件菜单
</td>
<td class="Title" align="right">

</td>
a&E+_zHb itBuw </tr>www.51js.com#j9RVQ;`
</table>
<SELECT name="path" type="text" style="border:1px solid #999;WIDTH: 300px"><OPTION value="" selected>****请选择目录****</OPTION><OPTION value="/">整个站点</OPTION><OPTION value=".">当前目录</OPTION> 无忧脚本j/a-_A1g
<%
call FolderShow(objFolder, 1)
%>
</SELECT>
</body></html>

<%
set objFncAspFomEdit = nothing
,}enQ\J(e9YL无忧脚本set objFolder = nothinga.| LGpY,gU

Function FolderShow(pFolder, pintLevel)

MX{yN Dim strSeparator
Dim strS
Call SubFoldersShow(pFolder, pIntLevel)www.51js.com-G4P0h(kr0iN

End Function无忧脚本0c+Tk5B8PD;[J

|{7_)tj,X无忧脚本Function SubFoldersShow(pFolder, pIntLevel)

#]4OQ
s9|无忧脚本 Dim objFolderSearch
Dim strSeparator
Dim strSwww.51js.comR*_EE7IEdL#h
m7B
strSeparator="";gv1uxN
strS=""
if pIntLevel > 1 then无忧脚本eMug5L_+E2~&v
For i = 2 to pIntLevel
strSeparator = strSeparator & " "
strS = pFolder.Name&"\"
next
7d-f
aV+xNwww.51js.com end if gA.UVO

if pFolder is nothing then exit function
if pFolder.SubFolders.Count = 0 then exit function
For Each objFolderSearch In pFolder.SubFolders
www.51js.comt A~$r_ G*}
%>
<OPTION value="<%=strS&objFolderSearch.Name %>"><%=strSeparator&objFolderSearch.Name%></OPTION>
<%
call FolderShow(objFolderSearch, pIntLevel + 1)
next(n{S8`zX)S
set objFolderSearch = nothing:`j#RS3p
End Functionwww.51js.com
rfm6g9[qa
%>

myhome 发布于2006-11-14 20:10:33: (L'W~G[)]+uLx无忧脚本@
DwP
` L
那位大虾来帮个忙哦！！！

xfdipzone 发布于2006-11-14 23:57:30: 看看是不是要这种效果www.51js.com(g3iS(M"u/W

保存为findfolder.asp


<style>www.51js.com}\,^1k7w1K4~

</style>
<script language="vbscript">

</script>www.51js.com
y&v(hYV&dT!Q0Q]
<form name="form1" method="post" action="findfolder.asp">
!|&?/Y8MG)Luwww.51js.com<select size="1" name="fpath" onchange="fsubmit()">
<option value="0" selected>--请选择--</option>www.51js.com|@
UWl`6Sr/I3R
<option value="/">整个站点</option>
0u-n1y \%sDkowww.51js.com<option value=".">当前目录</option>
<%
j0pm|!r  Dim fso,objfolder,objfile,strpath
5W(L)L%RkWs|www.51js.com  set fso=server.createobject("Scripting.FileSystemObject")
无忧脚本3F?t V$`L*F
  strpath="."
  call bl(strpath)无忧脚本I/``x |*Bd

  function bl(strpath)
|9t-S2Pg9|:PfA  set objfolder=fso.getfolder(server.mappath(strpath))&qN:uq*XO

  for each objsubfolder in objfolder.subfolderswww.51js.commhMq.O2Z
Response.write "<option value='" & strpath & "\" & objsubfolder.name & "'>" & replace(strpath,".","") & "\" & objsubfolder.name & "</option>"
call bl(strpath & "\" & objsubfolder.name)
.kVy+f*s3boH无忧脚本  next
www.51js.com8~+oT0|g1a4m9X
  End function
v4YC+k.@n%>
</select>www.51js.com:~t6lO1vMTe9]
</form>

!t'}bD}2DM0H(|<%www.51js.coml+]
REOUd
  fpath=Request.form("fpath")9@&o
P/hK1|3U(E

  if fpath<>"0" and fpath<>Empty then
www.51js.com0L0fvwZ
  Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,".","") & "</font><br><br>"
  Kz'@%NBUr
  set objfolder=fso.getfolder(server.mappath(fpath))

  for each objsubfolder in objfolder.subfolders无忧脚本j3xM^b/j-f
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
  next

  Response.write "<br>"
$m/T3mD)RhDW
  for each objfile in objfolder.files
Response.write "文件名称：" & objfile.name & "<br>"
  next
;pH!eoswww.51js.com
c#}7EjB$^www.51js.com  set objfolder=nothing+g!wpA&X$AL8T9k(I
9H1n5_jlf:`X
  End if
%>

myhome 发布于2006-11-15 20:58:41

QUOTE:

原帖由 xfdipzone 于 2006-11-14 23:57 发表
看看是不是要这种效果
JUl&^ gs@
保存为findfolder.asp
rUyIb [
q\www.51js.com
f-glt}i`
<style>
*n I v
|9Z:F$h"?
m
</style>www.51js.comO(j/Jl1B'U
<script language="vbscript"& ...

感谢xfdipzone斑竹的多次帮助！使用你提供的代码中的这段：

QUOTE:

无忧脚本7~-L"M8Kt,AR
<%
NwO9D/ldwww.51js.com  fpath=Request.form("fpath")www.51js.com#k9SO{1y

  if fpath<>"0" and fpath<>Empty then 无忧脚本mV6n+K?O
q!e)g7c

  Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,".","") & "</font><br><br>"

  set objfolder=fso.getfolder(server.mappath(fpath))

  for each objsubfolder in objfolder.subfolders
+@-F6{$_l1U8C Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
  next
r2Ht0ej]www.51js.com
  Response.write "<br>"www.51js.comcf?KXj$e6O5T

iQ1kWyFN&\  for each objfile in objfolder.files
Response.write "文件名称：" & objfile.name & "<br>"
9H|z+z
f.X]
{+f"F  next
,{IGL$b6PBwww.51js.comwww.51js.com$D{H
a4_&BN
  set objfolder=nothing
无忧脚本&F]r8LG.TyS^6S
  End if
%>x-{%b_9S`h/lE'sq0ye
I@

稍加改变后达到了要求！再次表示感谢~！

进入论坛，查看全部评论