Conheça o Autor

Wellington
Marinheiro
membro deste maio de 2008.

Palavras-Chave

ASP
Arquivos
FSO

Listando subpastas de uma pasta com FSO

visto por 1239 vez(es)

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>

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar abuso)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco

Conheça o Autor

Palavras-Chave

Leia mais

Listando subpastas de uma pasta com FSO

Comente