ASP / Arquivos
Listando subpastas de uma pasta com FSO
enviado por Wellington Marinheiro
O código abaixo lista todas as subpastas existentes na pasta principal utilizando o componente File System Object.
<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>
<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>
Versão impressa gerada em: sexta-feira, 27 de novembro de 2009
© Copyright 2006 - R&W Consulting.