Duvidas Fso...

[Ghosty]

tem alguma forma de eu listar todos os arquivos q estão no diretório em uma página asp??? eu queria fazer uma página com downloads so q são mtos arquivos para listar um por um...

valeu!!

[cyberalexxx]

Esse script eu fiz para um membro aki do forum a unica diferença é que ele queria armazenar os arquivos em um vetor, da uma olhada:

<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\intranet") ' coloque a pasta principal
Set arquivos = principal.Files

'criando vetor
dim nome
nome=array()
For each arq in arquivos
redim preserve nome(Ubound(nome)+1)
nome(Ubound(nome)) = arq.name
next

'listando arquivos
for x = 0 to Ubound(nome)  
   response.write nome(x) & "<br>"
next
%>

[Ghosty]

bah cara eu so iniciante em asp... n entendo muito de vetor... n daria pra mim fazer um loop e listar todos os arquivos como se fosse um banco de dados??

valeu!!

[cyberalexxx]

O codigo que eu postei faz isso, você testou??

[Ghosty]

o seu código funcionou ai eu tomei a liberdade de fazer umas mudanças pra criar um link automático pra cada arquivo com fazendo regferencia ao nome dele assim:

<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("C:\Inetpub\wwwroot\Downloads") ' coloque a pasta principal
Set arquivos = principal.Files

'criando vetor
dim nome
nome=array()
For each arq in arquivos
redim preserve nome(Ubound(nome)+1)
nome(Ubound(nome)) = arq.name
next

'listando arquivos
for x = 0 to Ubound(nome)  
  response.write "<a href="& nome(x)& ">"& nome(x) &"</a><br>"
next
%>

ele funciona cria o link tudo certo, so q quando eu clico pra faze o download ele abre a tela pra download e o meu programa de download da essa msg:

Sun Oct 17 23:37:29 2004 Connecting 200.203.21.102 [iP=200.203.21.102:81]

Sun Oct 17 23:37:29 2004 Connected.

Sun Oct 17 23:37:29 2004 GET /02_-_We_As_Americans.mp3 HTTP/1.1

Sun Oct 17 23:37:29 2004 Host: 200.203.21.102:81

Sun Oct 17 23:37:29 2004 Accept: */*

Sun Oct 17 23:37:29 2004 Referer: http://pcdorubens.no-ip.com/down.asp

Sun Oct 17 23:37:29 2004 User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)

Sun Oct 17 23:37:29 2004 Pragma: no-cache

Sun Oct 17 23:37:29 2004 Cache-Control: no-cache

Sun Oct 17 23:37:29 2004 Connection: close

Sun Oct 17 23:37:29 2004 HTTP/1.1 404 Object Not Found

Sun Oct 17 23:37:29 2004 Server: Microsoft-IIS/5.1

Sun Oct 17 23:37:29 2004 Date: Mon, 18 Oct 2004 01:37:29 GMT

Sun Oct 17 23:37:29 2004 Connection: close

Sun Oct 17 23:37:29 2004 Content-Length: 368

Sun Oct 17 23:37:29 2004 Content-Type: text/html

Sun Oct 17 23:37:29 2004 Error occured!

da pra entender??

[Ghosty]

eu testei em outro computador mas tb n funcionou, eu sei q os arquivos pra downloads n podem conter espaços mas eu ajeitei alguns e mesmo assim n funcionou...

[cyberalexxx]

Deixa a linha do link assim:

response.write "<a href="& principal &"\"& nome(x)& ">"& nome(x) &"</a><br>"

[Ghosty]

eu fiz isso so q agora quando eu clico n acontece nada, nem se eu clicar com o botão direito do mouse e selecionar abrir em nova janela n acontece nada..

sera q é porque eu hospedo o site em casa??

[cyberalexxx]

já SEI!!

Deixa assim:

CAMINHO=MID(PRINCIPAL,3,LEN(PRINCIPAL)-2)

'listando arquivos
for x = 0 to Ubound(nome)  
response.write "<a href="& CAMINHO &"\"& nome(x)& ">"& nome(x) &"</a><br>"

next
%>