Leitura De Arquivos

[zando]

Olá galera,

Gostaria que alguém me ajudasse e a resolver este problema.

Seria assim: teria um diretório em meu servidor que eu colocaria vários arquivos com nomes diferentes a cada dia... eu queria fazer um código para ler estes arquivos e criar um link para download dos mesmos.

Será que tem como fazer?

Desde já agradeço as respostas.

Valeu e t+

[Guest Guest]

você quer com bd, ou sem, você cadastra os arquivos em um bd ou so joga no diretorio?

[mariofdf]

sou eu ai em cima, não entendo porque as vezes mesmo lgado aparece Guest

[vitorarouca]

vê esse link http://www.w3schools.com/asp/asp_ref_filesystem.asp

cumprimentos

Vitor Arouca

[zando]

Pode ser sem banco de dados mesmo...

É só para disponibilizar alguns arquivos que tenho...

Depois tem como fazer o download dos mesmos?

[mariofdf]

faça uma pesquisa no forum sobre FSO

[cyberalexxx]

Listando os arquivos de uma pasta:

<%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
%>

[zando]

Olha só, como que eu faço para fazer um link para download desses arquivos?

[cyberalexxx]

Criando o link:

<%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) %> 
     <a href="<%=nome(x)%>"><%=nome(x)%></a><br>
<%next%>

[zando]

Gostaria se fosse possível de colocar cada valor que retornasse em uma célula direferente na tabela de coloquei. Tem como fazer?

[cyberalexxx]

é so criar uma célula dentro do loop (for / next)

[zando]

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="10">
    <tr> 
Não estou conseguindo, aí vai meu código...
Valeu pelas respostas...      

<td><div align="left"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/setinha.gif" width="8" height="11">&nbsp;Clique 
          no link abaixo para fazer o download do arquivo universao.rar</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
          </font></strong></div></td>
    </tr>
    <tr> 
	<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("e:\home\logoslivraria\web\intranet\versoes\arquivos")
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)  %>

  <% 
   do until x.EOF  %>
      <td height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"><img src="../imagens/downloads_baixar.gif" alt="&gt;&gt; Download do arquivo" width="16" height="16" border="0">
      
  <a href="../intranet/versoes/arquivos/<%=nome(x)%>"><%=nome(x)%></a><br>

    
      </td>
   <% x.MOVENEXT 
  loop %>
    </tr>
    <tr> 
      <td height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"> 
        <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
          <img src="../imagens/downloads_baixar.gif" alt="&gt;&gt; Download do arquivo" width="16" height="16" border="0"></font></div></td>
     
    </tr>
  
  </table>

[cyberalexxx]

Esse é o código funcionando??

[zando]

O código que está funcionando é este...

Valeu pelas respostas....

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="10">
    <tr> 
      <td><div align="left"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/setinha.gif" width="8" height="11">&nbsp;Clique 
          nos links abaixo para fazer o download das vers&otilde;es</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
          </font></strong></div></td>
    </tr>
    <tr> 
      <%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("e:\home\logoslivraria\web\intranet\versoes\arquivos")
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) %>
      <td width="100%" height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/downloads_baixar.gif" alt="&gt;&gt; Download do arquivo" width="16" height="16" border="0"> 
        <a href="arquivos/<%=nome(x)%>"><%=nome(x)%></a> </font></td>
    </tr>
    <%next%>
  </table>

[zando]

Como consigo ler a data deste arquivo e exibi-lo juntamente com o nome do mesmo?

[vitorarouca]

claro...no exemplo anterior "arq.date"