Jump to content
Fórum Script Brasil
  • 0

Exibindo Arquivos De Uma Determinada Pasta


Marcos-rj

Question

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"!

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...