Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

daniloprates

Busca em um sistema de listar arquivos

Por , em ASP Clássico

Recommended Posts

daniloprates    0

daniloprates
Postado

Esse é o sistema que eu uso:

 

Set objFileSys = Server.CreateObject("scripting.FileSystemObject")Set Thefolder = objFileSys.GetFolder(CAMINHOFOTOS)Set Thefiles = TheFolder.files

<% For Each Thefiles in TheFiles %><% = Thefiles.name %><br><% next %>

É possível fazer uma busca nos arquivos? Exemplo:

LISTAR ARQUIVOS QUE CONTENHAM A PALAVRA 'BANNER'....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amigo_zz    0

Amigo_zz
Postado

Esse é o sistema que eu uso:

Set objFileSys = Server.CreateObject("scripting.FileSystemObject")Set Thefolder = objFileSys.GetFolder(CAMINHOFOTOS)Set Thefiles = TheFolder.files
<% For Each Thefiles in TheFiles %><% = Thefiles.name %><br><% next %>
É possível fazer uma busca nos arquivos? Exemplo:LISTAR ARQUIVOS QUE CONTENHAM A PALAVRA 'BANNER'....
Estava a olhar para este post e a pensar que na realidade nao seria má ideia vaerrer o server e guardar em base de dados a sua estrutura. Desta forma, poderias listar pela ordem que quisesses, ordenar, pesquisar etc.So tens de escolher o melhor momento para fazer isso essa varredura de arquivos. Na realidade estarias a mostrar o que estava na base de dados....quando alguém quisesses alterar nome de arquivo, eliminar, etc...fazis a alteração no ficheiro e depois na BD.Apenas uma ideia

Compartilhar este post

Link para o post
Compartilhar em outros sites

<%Rafael%>    0

<%Rafael%>
Postado

Salve...

 

A lógica é simples.. segue abaixo um exemplo funcional disso...

 

<html><head>	<title>Listando Arquivos do Site</title></head><body><form action="fso.asp" method="post">	<input type="text" name="nome" size="30" />	<input type="submit" value="OK" /></form><% Dim nomenome = Trim(LCase(Request.Form("nome")))If nome = "" Then	Response.Write("Listando todos os arquivos da pasta")Else	Response.Write("Listando os arquivos da pasta que contenham: <b>" & nome & "</b>")End IfResponse.Write("<hr />")Dim pasta'Aqui você coloca a pasta em que vai abrir e listar os arquivos...pasta = Server.MapPath("upload/img_setores")Dim Fso Set Fso = Server.CreateObject("Scripting.FileSystemObject")Set Folder = Fso.GetFolder(pasta)	For Each File In Folder.files		If nome = "" Then			Response.Write(File.Name & "<br />")		Else			If InStr(1, LCase(File.Name), nome, 1) > 0 Then				Response.Write(File.Name & "<br />")			End If		End If	NextSet Folder = NothingSet Fso = Nothing%></body></html>

PS: Altere a pasta em que irá listar os arquivos no Server.MapPath... qualquer dúvida dá um grito!

 

Abraços! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito