quarta-feira, 21 de janeiro de 2004

Navegação em diretórios/arquivos utilizando FSO

Olá pessoal,


Este é o meu primeiro post espero que seja útil.


Trata-se de um único script que pode ser utilizado para navegação/download entre arquivos/pastas armazenados em um servidor utilizando FSO do ASP.


Segue o código:


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Navegação em arquivos/pastas armazenados no Servidor utilizando FSO</title>
<body alink=black vlink=black link=black>


<!--
Título: Script para Navegação entre diretórios e arquivos em servidor WEB.
Versão: 1.0
Autor: Ricardo Vinicius de Godoi
Email:
rvgodoi@hotmail.com
Data: 21/01/2004
Requisitos: Servidor rodando IIS com suporte ao FilesystemObject.
-->
<%
'Bloco de código que faz com que a página não seja armazenada em cache, evitando que o usuário
'visualize arquivos/pastas que não estão mais no servidor ou não visualize arquivos/pastas novos:


Response.Buffer=true
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
<%
'Configurações do script:


'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:
ParametroPasta = Request.QueryString("Pasta")


'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:
Session("Path") = "d:\apostilas\home\"&ParametroPasta&""
Path = Session("Path")
'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:
PathVirtualArquivos = "/apostilas/home/"
'A variável abaixo deve ser alterada para o caminho virtual deste script:
PathScript = "/desenvolvimento/asp/colunas/arvoreFso/default.asp"


'Criando o objeto Filesystem Object:
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'Setando o caminho que será indicado como pasta raiz:
Set Pasta = FSO.GetFolder(""&Path&"")
'Solicitando a lista de arquivos para a pasta raiz:
set arquivos = pasta.files
'Setando a pasta raiz:
set Raiz = Pasta
'Verificando as subpastas da pasta raiz:
Set Pastas = Raiz.SubFolders


'Verificando o Nome da pasta Raiz:
Nome = pasta.name


'Verificando se há subpastas:


contador = 0
for each subpastas in pastas
contador = contador+1
next


%>
</b>
<%
Response.write "<br><div align=left>"
Response.Write "<font face=arial size=2>"


if contador <> 0 then


'Fazendo um loop pelas subpastas da pasta raiz:
for each subpastas in Pastas
response.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"
next


end if


response.write "<br>"


'Fazendo um loop pelos arquivos da pasta:
Apostila = "apostilas"
for each arquivo in arquivos
response.write "<img border=0 src='file.gif' align='middle'>&nbsp;<a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"
next


Response.Write "</font>"
response.write "</div><br>"
%>


<hr color=black>
<font color=black face=Verdana size=2>
<a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a>&nbsp;|&nbsp;
<%
response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"
response.write "Refresh</font></a>"
%>
</font>
</body>
</html>



Esta matéria foi postada originalmente no ASP4Developers por Ricardo Vinicius de Godoi, que na época era "Analista de Sistemas/Suporte
Desenvolvedor JAVA/JSP/ASP/PHP/Oracle/JavaScript". Hoje, vai saber...

0 comentários: