Categorias

Listando subpastas de uma pasta com FSO

O código abaixo lista todas as subpastas existentes na pasta principal utilizando o componente File System Object.



.:: Listando subpastas ::.


<%
dim fs,fo,x, pastalocal
set fs=Server.CreateObject("Scripting.FileSystemObject")
pastalocal=split(Request.ServerVariables("script_name"),"/")

response.write "Pasta atual: " & pastalocal(1) & "
Subpastas:
" loc= Server.MapPath("/"&pastalocal(1)) set fo=fs.GetFolder(loc) for each x in fo.SubFolders Response.write x.Name & "
" Next Response.write "
" set fo=nothing set fs=nothing %>