Array Como Usar ?

[Snork]

como faço para colocar o valor do fso dentro de um array... alguém sabe???

ex..

'Cria o objeto filesystemobject

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

i=0

For Each ObjArq in ObjPasta.Files

fotos(i) = array(album & ObjArq.name)

response.write fotos(i)

i=i+1

Next

fiz dessa forma e não deu certo.... o que esta errado ???

[cyberalexxx]

Eu acho que primeiro voce vai ter que contar os elementos

e depois definir a variavel:

DIM fotos(x)

se não for isso, coloca o erro ai pra gente ver

[Snork]

o erro é esse:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'fotos'

fotosAlbum.asp, line 16

[cyberalexxx]

Posta tambem o codigo, pelo menos a linha que ta dando erro.

[Snork]

ocodigo é este :

'Cria o objeto filesystemobject

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

i=0

For Each ObjArq in ObjPasta.Files

esta é a linha - fotos(i) = array(album & ObjArq.name)

response.write fotos(i)

i=i+1

Next

fiz dessa forma e não deu certo.... o que esta errado ???

[cyberalexxx]

Não to entendendo o que você quer fazer.

1 - Continuo achando que voce primeiro tem que declarar a variavel fotos

2 - O que você quer fazer nesta linha:

fotos(i) = array(album & ObjArq.name)

voce usa array quando quer criar uma array e voce conhece os elementos, exemplo:

teste = array(valor1, valor2, valor3)

no seu caso voce tem que declarar a variavel fotos com seu numero de elementos

Dim fotos(x)

e depois dar os valores assim:

fotos(i) = album + ObjArq.name

[Snork]

o que eu quero fazer é o seguinte....

eu estou pegando de uma pasta (pasta fotos) 20 fotos usando o filesystemobject...

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

ai eu dou um for each para listar as fotos.

For Each ObjArq in ObjPasta.Files

response.write ObjArq.name

Next

até ai beleza ....

agora eu quero colocar o valor de ObjArq.name dentro de um array para poder passar esse array para o flash.... alguma ideia de como fazer isso

obs. eu sei como passar um array para o flash eu não sei como colocar os valores de ObjArq.name em um array.

[cyberalexxx]

Vamos la

'1 - criar o objto FSO

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

'2 - contar o numero de arquivos na pasta

set arquivos = ObjPasta.files

totalfiles = arquivos.count

'3 - Declarar variavel

DIM fotos(totalfiles)

'4 - Listar arquivos e atribuir valores a array

i = 0

For Each ObjArq in ObjPasta.Files

response.write ObjArq.name

fotos(i) = ObjArq.name

i = i + 1

Next

Faça um teste ai qualquer volta aqui!!!

[Snork]

deu erro ....

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0402)

Constante inteira esperada

/Clientes/Elma_Chips/ruffles_na_paquera/jogoPaquera/desenvolvimento/fotosAlbum.asp, line 36, column 10

DIM fotos(totalfiles)

[cyberalexxx]

Vou dar uma pesquisa no que é isso.

Caso o numero de arquivos que voce falou 20 seja fixo voce pode mudar o dim para:

DIM fotos(20)

[Snork]

dessa forma eu consegui listar oa valores para dentro de array ....

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

total = 20

dim fotos()

For Each ObjArq in ObjPasta.Files

for i=0 to total

redim fotos(i)

fotos(i) = album & ObjArq.name

response.write fotos(i) & i & "<br>"

next

Next

mas ai o resutado é este....

desenvolvimento/mvc/Mvc-786s.jpg0

desenvolvimento/mvc/Mvc-786s.jpg1

desenvolvimento/mvc/Mvc-786s.jpg2

desenvolvimento/mvc/Mvc-786s.jpg3

desenvolvimento/mvc/Mvc-786s.jpg4

desenvolvimento/mvc/Mvc-786s.jpg5

desenvolvimento/mvc/Mvc-786s.jpg6

desenvolvimento/mvc/Mvc-786s.jpg7

desenvolvimento/mvc/Mvc-786s.jpg8

desenvolvimento/mvc/Mvc-786s.jpg9

/desenvolvimento/mvc/Mvc-786s.jpg10

desenvolvimento/mvc/Mvc-786s.jpg11

/desenvolvimento/mvc/Mvc-786s.jpg12

/desenvolvimento/mvc/Mvc-786s.jpg13

/desenvolvimento/mvc/Mvc-786s.jpg14

/desenvolvimento/mvc/Mvc-786s.jpg15

/desenvolvimento/mvc/Mvc-786s.jpg16

/desenvolvimento/mvc/Mvc-786s.jpg17

/desenvolvimento/mvc/Mvc-786s.jpg18

/desenvolvimento/mvc/Mvc-786s.jpg19

/desenvolvimento/mvc/Mvc-786s.jpg20

/desenvolvimento/mvc/Mvc-01f.jpg0

/desenvolvimento/mvc/Mvc-01f.jpg1

/desenvolvimento/mvc/Mvc-01f.jpg2

/desenvolvimento/mvc/Mvc-01f.jpg3

/desenvolvimento/mvc/Mvc-01f.jpg4

/desenvolvimento/mvc/Mvc-01f.jpg5

/desenvolvimento/mvc/Mvc-01f.jpg6

/desenvolvimento/mvc/Mvc-01f.jpg7

/desenvolvimento/mvc/Mvc-01f.jpg8

/desenvolvimento/mvc/Mvc-01f.jpg9

/desenvolvimento/mvc/Mvc-01f.jpg10

/desenvolvimento/mvc/Mvc-01f.jpg11

/desenvolvimento/mvc/Mvc-01f.jpg12

/desenvolvimento/mvc/Mvc-01f.jpg13

/desenvolvimento/mvc/Mvc-01f.jpg14

etc.....

ou seja ele esta listando as 20 fotos no array fotos(0), as 20 no array fotos(1), no fotos(2) ... e assim vai ate o fotos(20)....

alguma ideia de como fazer ele adicionar a foto 1 no array foto(0) .....

[cyberalexxx]

Faz assim:

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

dim fotos

fotos=array()

i=0

For Each ObjArq in ObjPasta.Files

ReDim preserve fotos(UBound(fotos)+1)

fotos(Ubound(fotos)) = album & ObjArq.name

response.write fotos(i) & i & "<br>"

i = i + 1

next

[Snork]

não funcionou .... gravou tudo no fotos(0)

se pedir para escrever fotos(1) da o seguinte erro .....

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0009)

Subscrito fora do intervalo: '[number: 1]'

/Clientes/Elma_Chips/ruffles_na_paquera/jogoPaquera/desenvolvimento/fotosAlbum.asp, line 38

alinha 38 é :

response.write fotos(1)

[cyberalexxx]

aqui ta funcionando bem

da uma revisada no codigo

<%

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

Set ObjPasta = ObjFso.GetFolder(server.mappath(album))

dim fotos

fotos=array()

i=0

For Each ObjArq in ObjPasta.files

ReDim preserve fotos(UBound(fotos)+1)

fotos(Ubound(fotos)) = album & ObjArq.name

response.write fotos(i) & i & "<br>"

i = i + 1

next

%>

[Snork]

veio .... esquece tudo isso ... o barato é muito simples ...

o codigo é o seguinte:

For Each ObjArq in ObjPasta.Files

lista = ObjArq.name & ","

arrayx = split(lista,",")

Next

SPLIT transforma uma lista de dados (separados por um determinado caractere definido) em um array.

assim funcionou....

valeu pelas dicas....

[cyberalexxx]

Po é verdade!!!

Depois de pronto chega a ser ridículo

Nem lembrei do Split!!!

T+