Exibindo Arquivos De Uma Determinada Pasta

[Marcos-rj]

uma maneira rápida e fácil de desenvolver uma página que exibirá arquivos de uma determinada pasta. Este script facilitará as páginas de download, pois exibiremos os arquivos de uma pasta no servidor sem que necessite que os mesmos estejam cadastrados em um banco de dados.

Para isso, criaremos uma página chamada "arquivos.asp " e nela utilizaremos.

<%
"Criando variáveis
dim objeto, pasta, arquivo

"Para exibir o arquivo, nós utilizaremos o FSO (File System Object)
"e para isto, criaremos o objeto
set objeto=createobject("scripting.filesystemobject")
"Agora que o objeto já está criado, temos que indicar a pasta que queremos exibir os arquivos e utilizaremos a variável pasta para armazenar o nome da pasta que o objeto irá explorar
"Em nosso caso, iremos explorar a pasta raíz
set pasta=objeto.getfolder("c:\")
%>
< html>
< body>
< p>
< font color="#0099CC" size="4" face="Arial">
< b>Arquivos da pasta <%=pasta%></b>
< /p>
< /font>
< table width="200" border="1" cellpadding="1" cellspacing="2" bordercolor="#CCCCCC">
< %
"Para manipularmos a coleção de arquivos contidos na pasta utilizaremos o comando For Each 
"Na linha abaixo capturaremos todos os arquivos (variável arquivo) da pasta
for each arquivo in pasta.files
%>
<tr>
<td width="191" bordercolor="#FFFFFF" bgcolor="f0f0f0">
<font size="2" face="Arial">
<%
"Logo abaixo escreveremos o nome do arquivo dentro de uma tabela
"Repare que estaremos fazendo uma repetição da linha
"Ou seja, cada nome ficará em uma linha da coluna
response.write arquivo.name
%>
</font>
</td>
</tr>
< %
"Passar para o próximo arquivo
next
%>
< /table>
< /body>
< /html>

Caso queira retirar a extenção de cada arquivo, basta subtituir o comando que mostra o nome do arquivo (response.write arquivo.name, linha 33) por:

"Iremos contar a quantidade de caracteres do nome e diminuir por 4
"pois a extenção geralmente são 4 caracteres contando com o ponto (.) 
total=len(arquivo.name)-4
"agora basta mostrar o nome do arquivo mostrando somente os caracteres antes do ponto
response.write left(arquivo.name,total)

Muito bem. Está aí um script simples de se fazer e que, dependendo da ocasião, é uma "mão na roda"!