Redim e Ubound in array dinamico

[betto]

Ciao a Tutti,

ho la mia pagina asp in cui, attraverso la seguente sintassi, leggo i files presenti in una directory.

Ho definito un array dinamico e vorrei che, nella lettura dei files, ogni nome del file letto divenisse un elemento dell' array; quindi ad ogni file letto, si aggiunge un elemeto dell' array...

<%@ Language=VBScript %>
<% Option Explicit
'
Dim colFiles, objFile, objFolder, objFSO, objStartFolder, arr_file(), f
'
f = 0
'
'
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objStartFolder = "d:\qscan_docs\2013_custom"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Response.Write objFile.Name & "
"
arr_file[f]=objFile.Name
f = f + 1
Next
Set objFolder = Nothing : Set colFiles = Nothing
Set objFSO = nothing

ho provato cosi',
inizializzando la variabile f=0 e facendola incrementare di valore una volta richiamata nel ciclo,
ma arr_file[f] mi da' errore "Tipo non corrispondente"

La domanda e':
devo definire l' array con Redim arr_file(0)
e poi, per l' incremento dei valori, devo usare :
arr_file(Ubound(arr_file) + 1) ??

in questo modo la variabile f risulterebbe inutile ....


Grazie mille in anticipo !!!

[br1]

Invece di impazzire fai una stringa unica e poi splittala:

<% 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set demofolder = filesys.GetFolder("TuoFoldername") 
Set filecoll = demofolder.Files 
filist = ""
For Each fil in filecoll 
  filist = filist & "|" & fil.name 
Next 
mioArray = split(mid(filist,2),"|")
%>

[betto]

Grazie mille br1, mi hai risolto il problema !!!!