Ir para conteúdo
Fórum Script Brasil
  • 0

Listar Arquivos De Uma Pasta...

davidmg

Perguntado por davidmg,

 Share

Pergunta

davidmg

davidmg

Postado
Postado

Olá galera,

Gostaria de saber como faço pra listar os arquivos de uma pasta. Os arquivos são fotos (jpg).

Gostaria de listá-los assim na página:

[01.jpg] [02.jpg] [03.jpg] e assim por diante até acabar as fotos da pasta.

Alguém pode me dar um exemplo?

Grato,

David

Link para o comentário
Compartilhar em outros sites

14 respostass a esta questão

Posts Recomendados

  • 0
vitorarouca

vitorarouca

Postado
Postado

Fresquinho feito para ti.

tens que alterar o caminho das pastas em 3 locais

strCaminho = "/imag"

<a href="imag/<%=strArq.name%>"><img src="imagm/<%=strArq.name%>"></a>

nesta linha eu tenho 2 pastas "imag" e "imagm". a primeira contem imagens grandes e a segunda as miniaturas 

<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="10">
<tr>
<%DIM FSO, strCaminho, strPrincipal, strArquivos, xx
'Request.ServerVariables(4) 
strCaminho = "/imag"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(strCaminho)
Set strArquivos = strprincipal.Files
IF strArquivos.count=0 then%>
	<td>
  Não existem imagens disponiveis
	</td>
<%else%>

	<%DIM  strArq

	FOR EACH strArq IN strArquivos 
  if strArq.name="Thumbs.db" then%> 
  
  <%else%>
  	<td>
    <a href="imag/<%=strArq.name%>"><img src="imagm/<%=strArq.name%>"></a>
  	</td>
  <%end if%>
	<%NEXT%>
<%end if%>
</tr>
</table>
<body>

</html>

mais alguma coisa é só falar...

Abraço

Vitor Arouca

Link para o comentário
Compartilhar em outros sites
  • 0
davidmg

davidmg

Postado
  • Autor
Postado
Fresquinho feito para ti.

tens que alterar o caminho das pastas em 3 locais

strCaminho = "/imag"

<a href="imag/<%=strArq.name%>"><img src="imagm/<%=strArq.name%>"></a>

nesta linha eu tenho 2 pastas "imag" e "imagm". a primeira contem imagens grandes e a segunda as miniaturas 

<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="10">
<tr>
<%DIM FSO, strCaminho, strPrincipal, strArquivos, xx
'Request.ServerVariables(4) 
strCaminho = "/imag"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(strCaminho)
Set strArquivos = strprincipal.Files
IF strArquivos.count=0 then%>
	<td>
  Não existem imagens disponiveis
	</td>
<%else%>

	<%DIM  strArq

	FOR EACH strArq IN strArquivos 
  if strArq.name="Thumbs.db" then%> 
  
  <%else%>
  	<td>
    <a href="imag/<%=strArq.name%>"><img src="imagm/<%=strArq.name%>"></a>
  	</td>
  <%end if%>
	<%NEXT%>
<%end if%>
</tr>
</table>
<body>

</html>
mais alguma coisa é só falar... Abraço Vitor Arouca
Amigão tá dando o seguinte erro: Objeto Server error 'ASP 0177 : 800a004c' Falha em Server.CreateObject /click/fotos.asp, line 15 00000000 Olhe o código: 
<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="10">
<tr>
<%DIM FSO, strCaminho, strPrincipal, strArquivos, xx
'Request.ServerVariables(4) 
strCaminho = "baladas/expcapital04"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(strCaminho)
Set strArquivos = strprincipal.Files
IF strArquivos.count=0 then%>
<td>
 Não existem imagens disponiveis
</td>
<%else%>

<%DIM  strArq

FOR EACH strArq IN strArquivos 
 if strArq.name="Thumbs.db" then%> 

 <%else%>
  <td>
   <a href="baladas/expcapital04/g/<%=strArq.name%>"><img src="baladas/expcapital04/<%=strArq.name%>"></a>
  </td>
 <%end if%>
<%NEXT%>
<%end if%>
</tr>
</table>
<body>

</html>

O que tem de errado?

A linha 15 é essa: strCaminho = "baladas/expcapital04"

mas o caminha tá certo....

David

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Brothers ...

1- Vejam a descrição do erro:

Objeto Server error 'ASP 0177 : 800a004c'

Falha em Server.CreateObject

2- Debuguem o que é o erro, apenas traduzindo para o Portugues: Falha Criando o Objeto.

3- Porque isto ocorre? Porque não foi possível criar o Objeto FSO.

4- Porque não foi possível criar? Provavelmente por dois motivos:

- Servidor não dá suporte ao componente

- Está tendo problemas com Permissões.

5- Qual a solução? Tente rodar o script em outro servidor. Se funcionar, indica que o codigo funciona. Então, veja possíveis problemas com Componente, e com Permissões no seu servidor.

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
davidmg

davidmg

Postado
  • Autor
Postado
Brothers ...

1- Vejam a descrição do erro:

Objeto Server error 'ASP 0177 : 800a004c'

Falha em Server.CreateObject

2- Debuguem o que é o erro, apenas traduzindo para o Portugues: Falha Criando o Objeto.

3- Porque isto ocorre? Porque não foi possível criar o Objeto FSO.

4- Porque não foi possível criar? Provavelmente por dois motivos:

- Servidor não dá suporte ao componente

- Está tendo problemas com Permissões.

5- Qual a solução? Tente rodar o script em outro servidor. Se funcionar, indica que o codigo funciona. Então, veja possíveis problemas com Componente, e com Permissões no seu servidor.

Abraços

Por enquanto eu to tentando rodar na máquina mesmo com o PWS....

Vou tentar jogar no meu servidor na net e testar....

valeu

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Perfeito, hehe.

Então, Tópico Fechado, Assunto Encerrado, Duvida Resolvida

Abraços,

Dark

Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...