Listar arquivos de um diretório

[danielegg 0]

Olá pessoal alguem tem algum script em ASP pra me enviar que liste os arquivos de uma pasta?? Pode mandar para o meu e-mail danielegg@ig.com.br

 

Grato Daniel

[WebASP 0]

Mostrar todos os arquivos do diretorio

 

Set Fso = Server.CreateObject ("Scripting.FileSystemObject")

Set arquivo = Fso.GetFolder("./")

Set arquivos = arquivo.files

 

For Each a in arquivos

 

Response.Write a.name & "<br>"

 

Next

 

Set arquivos = nothing

Set arquivo = nothing

Set Fso = nothing

 

 

Mostrar todas as pastas do diretorio

 

Set Fso = Server.CreateObject ("Scripting.FileSystemObject")

Set arquivo = Fso.GetFolder(CaminhoFisico)

Set arquivos = arquivo.subfolders

 

For Each a in arquivos

 

Response.Write a.name & "<br>"

 

Next

 

Set arquivos = nothing

Set arquivo = nothing

Set Fso = nothing

[danielegg 0]

Nao estou conseguindo usar esse script q você me enviou... você pode me mandar um exemplo??Grato

[WebASP 0]

<%Set Fso = Server.CreateObject ("Scripting.FileSystemObject")Set arquivo = Fso.GetFolder("C:\")Set arquivos = arquivo.subfoldersFor Each a in arquivosResponse.Write a.name & "<br>"NextSet arquivos = nothingSet arquivo = nothingSet Fso = nothing %>

[Mário Monteiro 179]

bem pessoal estou respondendo este topico antigo apenas porque precisei do codigo e encontrei este que a resposta esta parcialmente incorreta, pois este lista os subdiretorios e não os arquivos como foi perguntado...

 

bastou trocar subfolders por files

 

[tr][/tr][tr][/tr]

ASP

<%   Set Fso = Server.CreateObject ("Scripting.FileSystemObject") Set arquivo = Fso.GetFolder(Server.MapPath("../imagens/smiles/")) Set arquivos = arquivo.files   For Each Item in arquivos   Response.Write Item.name & "<br>"   Next   Set arquivos = nothing Set arquivo = nothing Set Fso = nothing   %>

[Asteriscos 0]

Pessoal,

 

Tenho certeza que o problema não é o código pois já testei 6 exemplos para listar arquivos de um diretorio e nenhum funcionou. A página fica processando ... processando... e não lista os arquivos que eu quero.

 

Pensei que fosse por falta do componente FileSystemObject, mas este está instalado.

 

Verifiquei as propriedades do IIS e estão com as seguintes configurações:

 

- Acesso ao código fonte : não

- Ler: Sim

- Gravar: Sim

- Pesquisar no diretório: não

 

Alguem pode me ajudar?

 

Exemplo de um código que utilizei:

 

ASP

[*]<%

[*]pasta = "C:\Web Paginas\nova pasta"

[*]Set FSO = Server.CreateObject("Scripting.FileSystemObject")

[*]Set principal = FSO.GetFolder(pasta)

[*]Set arquivos = principal.Files

[*]criando vetor

[*]dim nome

[*]nome=array()

[*]cont = 0

[*]For each arq in arquivos

[*]redim preserve nome(Ubound(nome)+1)

[*]nome(Ubound(nome)) = arq.name

[*]cont = cont + 1

[*]next

[*]x = 1

[*]'mostrando quantos arquivos há na pasta

[*]Response.Write("Há na pasta <B>"&pasta&"</b> - - <B>"&cont&" arquivos</b><br><br>")

[*]'listando arquivos

[*]while x <> Ubound(nome)

[*]Response.Write(x&". "&lcase(nome(x))&"<br>")

[*]x = x + 1

[*]wend%>

[Salgado 4]

A quantidades de arquivos é muito grande?

[Asteriscos 0]

coloquei nessa pasta apenas 2 para teste.DSC00005.JPG e DSC00004.JPGReinstalei tbm o FSO utilizando o tutorial de dúvidas frequentes e reiniciei o micro...mas continua a mesma coisa.

[Mário Monteiro 179]

cara tem algo estranho pois o codigo que alterei funciona de boa...