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

Array Como Usar ?


Snork

Pergunta

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 ???

Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 0

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 ???

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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!!!

Link para o comentário
Compartilhar em outros sites

  • 0

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) .....

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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)

Link para o comentário
Compartilhar em outros sites

  • 0

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

%>

Link para o comentário
Compartilhar em outros sites

  • 0

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....

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...