Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Terça-feira - 19 de Junho de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Exibir arquivos e pastas
Avaliações: 27   -   Minha nota: Média Geral: 8  
Existe um componente ASP que permite exibir o conteúdo de um diretório no servidor. Ou seja, permite-nos exibir arquivos e pastas existentes.
O componente FileSystemObject pode ser utilizado para várias finalidades. Com ele é possível criar, alterar, e até mesmo excluir, arquivos e pastas diretamente do servidor.

Vamos neste exemplo, criar uma tabela para exibir o conteúdo de um diretório existente no servidor.


<%
'Declara as variáveis a serem usadas
Dim Local, Folder, File, ObjFS, objRootFolder

'Especifica o endereço do conteúdo a ser exibido
Local = "C:\nome_da_pasta"

'Cria o objeto FileSystemObject
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = ObjFS.GetFolder(Local)

Response.Write "<table border='1' bordercolor='gainsboro' cellpadding=2 cellspacing=0 width='100%' style='font-family: Tahoma, Arial; font-size: 11px;'>"
Response.Write " <tr style='background: gainsboro'>"
Response.Write " <td><b>Nome</b></td>"
Response.Write " <td><b>Tipo</b></td>"
Response.Write " <td><b>Tamanho em bytes</b></td>"
Response.Write " <td><b>Data da última modificação</b></td>"
Response.Write " </tr>"

'Exibe pastas encontradas
For Each Folder in objFolder.Subfolders
Response.Write " <tr>"
Response.Write " <td>" & Folder.Name & "</td>"
Response.Write " <td>" & Folder.Type & "</td>"
Response.Write " <td align=right>" & Folder.Size & "&nbsp;&nbsp;</td>"
Response.Write " <td>" & Folder.DateLastModified & "</td>"
Response.Write " </tr>"
Next

'Exibe arquivos encontrados
For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td align=right>" & File.Size & "&nbsp;&nbsp;</td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"
Next

Response.Write "</table>"

'Elimina variáveis da memória
Set Local = Nothing
Set File = Nothing
Set objFolder = Nothing
Set Folder = Nothing
%>

Este exemplo exibe o nome do arquivo ou pasta, tipo, tamanho e data da última modificação.

Espero que este exemplo lhe seja útil.

Fabiano Dias
fabiano@superasp.com.br

www.superasp.com.br
O portal do desenvolvedor ASP




SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados