关于作者

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

上一篇 / 下一篇 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: <%
  Dim fso,objfolder,objfile,strpath
  strpath=server.mappath(".")
P)i"X+@w0`Xwww.51js.com  V?5Pa#v3E
  set fso=server.createobject("Scripting.FileSystemObject")
;|'cUZB3iuwww.51js.com
:f7iEj|IS)~无忧脚本  call bl(strpath)无忧脚本1d
\3YVjKi+}l

GPJ4[ D4i+f  function bl(strpath)
  set objfolder=fso.getfolder(strpath)
无忧脚本&C*^+uN(MfE
  Response.write "文件夹路径：" & strpath & "<br><br>"
)_W[d x1k8XL
  for each objfile in objfolder.files
Response.write "<font color=""#0066CC"">文件名：" & objfile.name & "</font><br>"
  nextK#c$f,l
f+UC_W~4I

  for each objsubfolder in objfolder.subfolders
8uVX{B*k$us#^x Response.write "<font color=""#FF0000"">文件夹：" & objsubfolder.name & "</font><br>"www.51js.com~7jnt)o;Uz%dRr9nz
call bl(strpath & "\" & objsubfolder.name)无忧脚本di3y(P!J
  next

,dcv3A)po7o,YH@www.51js.com  End function
%>

myhome 发布于2006-11-12 22:36:46: QUOTE:
原帖由 xfdipzone 于 2006-11-12 20:36 发表
<%
  Dim fso,objfolder,objfile,strpath|)x/_2X5mv#n8VHC!~
  strpath=server.mappath(".")
r4hR(@._/l
  set fso=server.createobject("Scripting.FileSystemObject")无忧脚本eY~iu2kP
  www.51js.com{-hbi)~$W^yz+]2n
  call bl(strpath)

  functio ...

感谢xfdipzone斑竹！！ m/AW&@BY

但是：我只需要获得文件夹的名称，不需要获得文件夹下所有文件的名称

例如，站点根目录下有这样的文件夹：0FrOS#yp2d^

"rkf'Q)YI-vwww.51js.com
sttfO/k
jwww.51js.com bbs
^T)z
Suu无忧脚本 bbs\chkNum
OcW0W_DW~2e}0^www.51js.com bbs\chkNum\s
bbs\editor 无忧脚本@+kk,y5c'j&jS
bbs\editor\face
ABC
d B$x@@7x ARwww.51js.com ABC\123
ABC\123\SS *Tq)ke MH.u
VV*m;_
ABC\123\SS\ZZJ.S`)^$L!EN
…………L)q{sk%wN j*n

我现在需要获得全部的文件夹名称，并且以下面这样的格式输出显示：
无忧脚本PCJ
?'I6W9`zR"z
<SELECT>
$fm6B$D|r <OPTION value="" selected>****请选择目录****</OPTION>
<OPTION value="/">整个站点</OPTION>
<OPTION value=".">当前目录</OPTION>
<OPTION value="bbs">bbs</OPTION>
<OPTION value="bbs\chkNum">bbs\chkNum</OPTION>
s@K:sFL!D4[ <OPTION value="bbs\chkNum\s">bbs\chkNum\s</OPTION>
<OPTION value="bbs\editor">bbs\editor</OPTION>
<OPTION value="bbs\editor\face">bbs\editor\face</OPTION> {%J-N"Kd7D3\
<OPTION value="ABC">ABC</OPTION> U/hJ{Fk
<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>
………………
</SELECT>
T+]_8LTF
N8[无忧脚本
折腾了N 天一直没搞成功，请高手们帮助！感激不尽！

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

<%
Dim objFso
Dim objFolder
无忧脚本3CV"i0TK
set objFso = Server.CreateObject("Scripting.FileSystemObject")
NB6ef
KL6kset objFolder = objFso.GetFolder(Request.ServerVariables("APPL_PHYSICAL_PATH"))www.51js.comjBV[nu O
%>无忧脚本*^+QW^9G9J t
<html><head></head><body>Q!\fM4Y{
<table width="100%" cellpadding="1" cellspacing="0" border="0" class="InfoGridTitle">
2[la@AYVp ma <tr class="InfoLine">
<td class="Title">
*m3Y'VTL"U-c'nf无忧脚本文件菜单
&Vep5~[www.51js.com </td>
<td class="Title" align="right">无忧脚本!KU
b-CP9U

</td>

P2JB7b!c)?O/g </tr>
{,U I?c0|"p无忧脚本</table>
<SELECT name="path" type="text" style="border:1px solid #999;WIDTH: 300px"><OPTION value="" selected>****请选择目录****</OPTION><OPTION value="/">整个站点</OPTION><OPTION value=".">当前目录</OPTION>
v5_7J2}$]0twww.51js.com<%J!ec
v7KJ(e Mw,d
call FolderShow(objFolder, 1)www.51js.com4bq"[N#t }i
%>
1u"ouF:T/Pwwww.51js.com</SELECT>
B(_oQv6o[Cwww.51js.com</body></html>无忧脚本$@0Gua"`eEGSSq
无忧脚本 py1GPt)d-A5n
AHD4M
<%
set objFncAspFomEdit = nothing

z
GjhYq:@z无忧脚本set objFolder = nothing无忧脚本
|ro)gX6dz,?

Function FolderShow(pFolder, pintLevel)
3CgD`y2y无忧脚本www.51js.comn'Kx"VEde
Dim strSeparator无忧脚本^6nqw-}&a8V Xy!?
Dim strS/z/O2z5x:LiQBq IE
Call SubFoldersShow(pFolder, pIntLevel);ZI/\K]`'|
.dM#p
b2i#P%o
End Function
sV:_/O]{qqw+}j.D

8i,T.^mS*OB`)CbFunction SubFoldersShow(pFolder, pIntLevel)

]{Y)V5~@7a
n无忧脚本
8Y,_^ah:f$T6R无忧脚本 Dim objFolderSearch
Dim strSeparator
SfB)j@&S无忧脚本 Dim strS
strSeparator=""
}SK9p(J)QT;axeRwww.51js.com strS="")sn,lPNNlN)L9@
if pIntLevel > 1 then
b m-CDlz&QM!lwww.51js.com For i = 2 to pIntLevel
strSeparator = strSeparator & " "
strS = pFolder.Name&"\"
2E;~Q)eg"L"jh!g无忧脚本 next
,Yv0i \ij+B`%Rh end if

if pFolder is nothing then exit function
lO8G8G!hzl无忧脚本 if pFolder.SubFolders.Count = 0 then exit function
v2jx2hJ!u_For Each objFolderSearch In pFolder.SubFolders
f)L"i:N_*Hv4Eswwww.51js.com
%>
<OPTION value="<%=strS&objFolderSearch.Name %>"><%=strSeparator&objFolderSearch.Name%></OPTION>
@G*L#Z\4S
P,\BR)Pwww.51js.com<%
"fb dQ9V)d)IoVx+?无忧脚本 call FolderShow(objFolderSearch, pIntLevel + 1)
llPVLPA;ZZJ:|无忧脚本nextwww.51js.com\[@9t8mL*OT
set objFolderSearch = nothing
End Function
%>

myhome 发布于2006-11-14 20:10:33: m;ZPej3Ci8^
那位大虾来帮个忙哦！！！

xfdipzone 发布于2006-11-14 23:57:30: 看看是不是要这种效果

保存为findfolder.asp


+h*q}
_3A^;UC无忧脚本<style>

S2}Da&\m`:K</style>
<script language="vbscript">

j1Qeu+f无忧脚本</script>
tr*t
bp\]Y5vvwww.51js.com<form name="form1" method="post" action="findfolder.asp">
#tht&P`Awww.51js.com<select size="1" name="fpath" onchange="fsubmit()">
!?|iM&PK2Ywww.51js.com<option value="0" selected>--请选择--</option>
<option value="/">整个站点</option>2`%h7X0h;eBlHz
<option value=".">当前目录</option>
<%www.51js.com
Ct/^6_:MAN)L
  Dim fso,objfolder,objfile,strpath
R5r&r0_:{X0@J4f$ewww.51js.com  set fso=server.createobject("Scripting.FileSystemObject")

  strpath="."www.51js.com:S4m$L3_*m\"yl
  call bl(strpath)

b FF8W8W|`a  function bl(strpath)
  set objfolder=fso.getfolder(server.mappath(strpath))

  for each objsubfolder in objfolder.subfolders
Response.write "<option value='" & strpath & "\" & objsubfolder.name & "'>" & replace(strpath,".","") & "\" & objsubfolder.name & "</option>"
call bl(strpath & "\" & objsubfolder.name)
  next

y`Su?c.hS无忧脚本无忧脚本M0|4po?E C6S[
  End functionwww.51js.com,B\Ry"w
%>
jR:R7PE2_nf!x+w</select>
:YyG5sd)q2swf</form>1[q&_x8VQ&WdK

gwyC;W4S无忧脚本<%无忧脚本q
w+p6F?){Z)A
  fpath=Request.form("fpath")
+hyH_,t C&TKL
ON'e#{7_&w"Qm
  if fpath<>"0" and fpath<>Empty then www.51js.comp"y'lp'X#zc g@1C

1j,~1I S}FZ-ot`无忧脚本  Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,".","") & "</font><br><br>"

tL%j#^.wUf无忧脚本  set objfolder=fso.getfolder(server.mappath(fpath))

  for each objsubfolder in objfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
  next

  Response.write "<br>"

  for each objfile in objfolder.files
mI}lf无忧脚本 Response.write "文件名称：" & objfile.name & "<br>"
+cU5h1G0j  next

  set objfolder=nothing
$QlAk8BDB
  End if
%>

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

QUOTE:

原帖由 xfdipzone 于 2006-11-14 23:57 发表
看看是不是要这种效果www.51js.com r.[6NI%w
www.51js.comB8pr?$su-x-W$P!L-O[
保存为findfolder.asp
`;`.qhe'm无忧脚本

<style>

</style>
o7tZ4X^MCVwww.51js.com<script language="vbscript"& ...

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

QUOTE:

无忧脚本Y~9D!u$pS!^
<%
  fpath=Request.form("fpath")
\8@*C5IZrq9q
  if fpath<>"0" and fpath<>Empty then
www.51js.com/^m}:~&b5oF%en&R@
  Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,".","") & "</font><br><br>"

  set objfolder=fso.getfolder(server.mappath(fpath))
}#[,G3@5Jk'[8Z)` www.51js.com1x*~5Wrwni9wH
  for each objsubfolder in objfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"无忧脚本pw @1^t5Ov.W
  next

  Response.write "<br>"无忧脚本3mtZ2F.^ r&UU
www.51js.coms!`w&\*T8Y
A:@ u
  for each objfile in objfolder.files
Response.write "文件名称：" & objfile.name & "<br>"无忧脚本!?Da
JEth*sQ
m-H
  next
E3S*? i.ER&S无忧脚本
  set objfolder=nothing9V,py c&f3Px

  End if
%>

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

进入论坛，查看全部评论