Paginação com Fili]eSystemObject

[AEM 0]

ae pessoal, beleza...como fazer para paginar uma lista de diretorios usando FSOSe alguem souber...vlw.....

[vicoluis 0]

De uma olhada aqui

 

http://www.asp4developers.com.br/index.asp?modo=ver&id=l0526

[AEM 0]

ae... vlw.. pelo exemplo...vou ver se consigo...abço..

[AEM 0]

O Exemplo acime é bom mas somente exibe o nome do arquivo...

 

como faço para exibir outro detalhes...

 

ASP [/tr][tr]

Local = Request.QueryString("Local")

If Local = "" Then

Local = "C:/"

End IF

Dim iLoop, limite, pagina, totalarq, i

Dim vlMaximo, vlMinimo, anterior

 

'Especifica o endereço do conteúdo a ser exibido

Response.Write "<font face=tahome size=2 color=#003399>" & Local

'Cria o objeto FileSystemObject

Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = ObjFS.GetFolder(Local)

 

limite = 10

totalarq = ObjFolder.files.count

ReDim arrAvatar((totalarq-1))

Dim y

y = 0

 

For Each ObjArq in ObjFolder.Files

arrAvatar(y) = objArq.Name

y = y + 1

Next

 

 

pagina = Request("pag")

IF pagina = "" Then

IF limite < UBound(arrAvatar) Then

vlMinimo = 0

vlMaximo = (limite-1)

Else

vlMinimo = LBound(arrAvatar)

vlMaximo = UBound(arrAvatar)

End IF

pagina = 1

anterior = ""

Else

vlMinimo = (pagina*(limite-1))+(pagina)

vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)

IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar)

pagina = pagina + 1

anterior = pagina - 2

IF anterior = 0 Then anterior = ""

End IF

IF vlMinimo = 0 Then

IF Not (vlMaximo >= (y-1)) Then

response.write "<a href='diretorio3.asp?pag=" & pagina & "'>proxima</a><br>"

End IF

Else

IF Not (vlMaximo >= (y-1)) Then

response.write "<a href='diretorio3.asp?pag="& pagina & "'>proxima</a><br>"

End IF

response.write "<a href='diretorio3.asp?pag=" & anterior & "'>anterior</a>"

End IF

 

 

For i = vlMinimo to vlMaximo

response.write (i+1) & ")"

response.write arrAvatar(i) & "<BR>"

Next

%>

[/tr]

 

tente ai.. você vai ver que só exibe o nome.. mas como usar neste exemplo o código abaixo

 

ASP [/tr][tr]<%

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><a href=diretorio.asp?Local=" & Local & "/" & Folder.Name & "> "& Folder.Name & " </a></td>"

Response.Write " <td>" & Folder.Type & "</td>"

Response.Write " <td align=right>" & Folder.Size & "  </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><a href= " & File.Name & "> "& File.Name & "</a></td>"

Response.Write " <td>" & File.Type & "</td>"

Response.Write " <td align=right>" & File.Size & "  </td>"

Response.Write " <td>" & File.DateLastModified & "</td>"

Response.Write " </tr>"

Next

 

Response.Write "</table>"

%>

[/tr]

me ajudem... to leigo... no assunto,.. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[FabricioGomes 0]

no lugar disso:

--> arrAvatar(y) = objArq.Name

 

coloque isso:

 

arrAvatar(y) = "<tr>"

arrAvatar(y) = arrAvatar(y) + "<td>"& objArq.Name & "</td>"

arrAvatar(y) = arrAvatar(y) + " <td>" & objArq.Type & "</td>"

arrAvatar(y) = arrAvatar(y) + " <td align=right>" & objArq.Size & "  </td>"

arrAvatar(y) = arrAvatar(y) + " <td>" & objArq.DateLastModified & "</td>"

arrAvatar(y) = arrAvatar(y) + " </tr>"

 

e no fim da pagina:

Response.Write "<table>"

For i = vlMinimo to vlMaximo

response.write arrAvatar(i)

Next

Response.Write "</table>"

 

espero ter ajudado ok? :)

[AEM 0]

Vlw fabricio... vou ver ja como ficaria esta idéia...

[AEM 0]

Vlw....Fabricio... Funcionou perfeitamente para listar arquivos na array(y)

 

e completei para listar os SubFolders.....

 

vlw pela força... c precisar disponha http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif :) :D

[FabricioGomes 0]

se precisar tambem, disponha... hehehe