FSO ( File System Object)

[sublyer 0]

Bom como pode se ver abaixo estou com um script FSO, gostaria de fazer que por que ele mostre apenas 5 arquivos por vez.

 

 

Exemplo: No diretório existem 10 imagens e quero que ele mostre apenas 5 e depois com um link ele carregue uma outra página com as outras 5.

 

Script

 

       <%caminho="/imagens/"Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath(""&caminho&""))Set files = folder.FilesFor Each file in FilesNext %>

[manga 0]

Tente algo assim:

 

page = Request("page")If page = 1 ThenFor Each file in FilesFor i = 1 to 5foto(i)=file.NameNextNextElseIf page = 2 ThenFor Each file in FilesFor i = 1 to 10If i > 5 Thenfoto(i)=file.NameEnd IfNextNextEnd If

Para chamar a primeira página use "arquivo.asp?page=1"

E a segunda: "arquivo.asp?page=2"

 

T+

B)

[sublyer 0]

Deu erro:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis: 'foto'

[Mário Monteiro 179]

acho que o manga quiz dizer pra você varrer o diretorio com o FSO antes e armazenar os caminho em um array, depois você usa este codigo...

[sublyer 0]

Mas como eu crio esse Array?

[Mário Monteiro 179]

mais ou menos assim, peguei seu codigo e o do manga pra editar

[tr][/tr][tr][/tr]

ASP

<% caminho="/imagens/" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.Mappath(""&caminho&"")) Set files = folder.Files I = 0 FOR EACH file IN Files Redim preserve Arquivos(I) Arquivos(I) = file.Name Next If page = 1 Then FOR I = 0 TO 4 response.write "<img src='"& Arquivos(I) &"' border='0'>" NEXT ElseIf page = 2 Then FOR I = 5 TO 9 response.write "<img src='"& Arquivos(I) &"' border='0'>" NEXT End If %>

 

veja se resolve...