Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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'....
Rui, então, pensei nessa possibilidade, mas queria saber antes se não existe uma forma de fazer direto nos arquivos. Será que não dá?
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
<%Rafael%>, perfect!!! Muito bom! Demorei pra testar, mas funcionou perfeitamente! Valeu a todos.
>
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