Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Márcio Cristiano

mostra apenas subpastas desta pasta...

Por , em ASP Clássico

Recommended Posts

Márcio Cristiano    0

Márcio Cristiano
Postado

Olá....

tenho o seguinte.

 

Pasta: areaadmin/pasta1

 

Qdo executo o codigo abaixo ele mostra as pastas que estão dentro de areaadmin .... preciso que mostre as que estão dentro de pasta1 ... segue o ocodigo.

 

<%
dim fs,fo,x, pastalocal
set fs=Server.CreateObject("Scripting.FileSystemObject")
pastalocal=split(Request.ServerVariables("script_name"),"/")
response.write "Pasta atual: " & pastalocal(1) & "<br>Subpastas: <hr>"
loc= Server.MapPath("/"&pastalocal(1))
set fo=fs.GetFolder(loc)
for each x in fo.SubFolders
Response.write x.Name & "<br>"
Next
Response.write "<hr>"
set fo=nothing
set fs=nothing
%>
Já tentei pastalocal (0), ai mostra da raiz.... etc...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma olhada no fórum que postei um web explorer que faz isso tranquilamente. Mas vc pode usar este code:

 

<HTML>
<HEAD>
<TITLE>.:: Listando subpastas ::.</TITLE>
</HEAD>
<BODY>
<%
dim fs,fo,x, pastalocal
set fs=Server.CreateObject("Scripting.FileSystemObject")
pastalocal=split(Request.ServerVariables("script_name"),"/")

response.write "Pasta atual: " & pastalocal(1) & "<br>Subpastas: <hr>"

loc= Server.MapPath("/"&pastalocal(1))
set fo=fs.GetFolder(loc)
for each x in fo.SubFolders
  Response.write x.Name & "<br>"
Next
Response.write "<hr>"
set fo=nothing
set fs=nothing
%>
 </BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito