1 reply to this topic

[anereu]

Caros amigos,

Tenho um sistema de upload de arquivos para meu FTP.
Agora preciso listar em minha pagina ASP os arquivos que estao no FTP.
Alguém sabe como proceder com isso ou tem informações sobre.

Links, artigos e etc...

Desde Já AGradeço

Abraço

------------------
Anereu Bighetti

[Luis Otávio]

aqui eu tenho um código q lista todos os arquivos de uma determinada pasta, usando FSO, num sei se te ajuda.

<%
pag = request.QueryString("pag")
caminho = request.QueryString("caminho")
%> 

<div id="Layer1" style="position:absolute; left:5px; top:6px; width:242px; height:185px; z-index:1; background-color: #999999; layer-background-color: #999999; border: 1px none #000000;">

<%
caminho = request.QueryString("caminho")
%>
<%
'Sistema de ThumbNails usando FSO
Dim strPicArray
Dim iLoop, limite, pagina, totalarq, i
Dim vlMaximo, vlMinimo, anterior
Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta

'Número de colunas
picsInRow = 3
' Pasta de onde buscará as fotos
thumbFilePath = "img/"&caminho&"/"
' Cria o link para as fotos
imageFilePath = "img/"&caminho&"/"
' Pasta de onde buscará as fotos
strPhysicalPath="img/"&caminho&"/"

Set fso = CreateObject("Scripting.FileSystemObject") 
set mainfolder = Fso.GetFolder(Server.MapPath(strPhysicalPath))
Set ObjPasta = Fso.GetFolder(Server.MapPath(strPhysicalPath))
Set filecollection = mainfolder.Files



limite  = 9       ' limite de registros por página
totalarq = ObjPasta.files.count   ' total de arquivos encontrados

 ReDim thumb((totalarq-1))
 Dim y
 y = 0

 ' guardamos cada arquivo dentro de um array
 For Each ObjArq in ObjPasta.Files  
  thumb(y) = objArq.Name
  y = y + 1 
 Next
   
pagina = Request("pag")
 IF pagina = "" Then
  IF limite < UBound(thumb) Then
   vlMinimo = 0
   vlMaximo = (limite-1)
  Else
   vlMinimo = LBound(thumb)
   vlMaximo = UBound(thumb)
  End IF
  pagina = 1
  anterior = ""
 Else
  vlMinimo = (pagina*(limite-1))+(pagina)
  vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)
  IF vlMaximo > UBound(thumb) Then vlMaximo = UBound(thumb)
  pagina = pagina + 1
  anterior = pagina - 2
  IF anterior = 0 Then anterior = ""
 End IF

Response.Write "<div align='center'>"
Response.Write "<center>"
response.write "<table border='0' cellpadding='4'>"

intTotPics = 0
For Each file In filecollection
      intTotPics = intTotPics + 1
      
      Next
      Redim strPicArray(2,intTotPics)

	x = 0
	For Each file in filecollection
	strPicArray(0,x) = file.Name
 	 x = x + 1
	Next
%>

<%
' Esta linha lê a pasta e coloca as imagens dentro da tabela
      For x = vlMinimo to vlMaximo
   Response.Write "<td align='center'>"
      Response.Write "<a href='" & imageFilePath & strPicArray(0,x) & " 'target='mostra'><img src='" & thumbFilePath & strPicArray(0,x) & "' width='60' height='50' border='0'></a>"
      Response.Write "<br></td>"
          intPicNo = intPicNo + 1
   If intPicNo=picsInRow Then
    Response.write "</tr><tr>"
    intPicNo = 0
          End If
     Next
%>

<%
Response.Write "</tr></table>"
Response.Write "</div></center>"
%>
 
</center>
</font></div>
<div id="layer2" style="position:absolute; left:252px; top:71px; width:342px; height:278px; z-index:2;">

<IFRAME SRC="mostra.asp?pag=<%=pag%>&caminho=<%=caminho%>"  name="mostra" width="337" height="265" scrolling="no" border="0" frameborder="0"></iframe>
</div>

<div id="Layer2" style="position:absolute; left:250px; top:6px; width:468px; height:60px; z-index:3"><a href="http://www.iporto.com" target="_blank"><img src="../banner/iporto.gif" width="468" height="60" border="0"></a></div>
<div id="Layer3" style="position:absolute; left:6px; top:213px; width:238px; height:22px; z-index:4; background-color: #FFFFFF; layer-background-color: #FFFFFF;">

  <div align="center">
<%
 IF vlMinimo = 0 Then
  IF Not (vlMaximo >= (y-0)) Then
   response.write "<font size='1' face='verdana'><center><a href='index.asp?pag="& pagina &"&caminho="&caminho&"'>>></a></center></font>"
  End IF
 Else
  IF Not (vlMaximo >= (y-0)) Then
   response.write "<font size='1' face='verdana'><center><a href='index.asp?pag="& pagina &"&caminho="&caminho&"'>>></a></center></font>"
  End IF
  response.write "<td><font size='1' face='verdana'><center><a href='index.asp?pag="& anterior &"&caminho="&caminho&"'><<</a></center></font></td>"
 End IF
%>
<font size="1" face="verdana"><center>
 
<%FOR X=-1 TO (y/limite-1)
If Pagina = x+2 Then%>
<B>(<%=X+1%>) </B>
<% Else%>
<A HREF="index.asp?pag=<%=X+1%>&caminho=<%=caminho%>"><%=X+1%></A>
<% End If
NEXT%>
  </div>
</div>

é meio cumpridinho, mas vale apena dar uma lida... nem modifiquei apenas tirei de onde eu uso.... ou vc pode dar uma lida neste link:

http://www.sloppycode.net/fso/

para aprender mais como listar arquivos e diretórios.