Jump to content
Fórum Script Brasil
  • 0

Array Como Usar ?


Snork
 Share

Question

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 to comment
Share on other sites

15 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • 0

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)

Link to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.5k
×
×
  • Create New...