Redim e Ubound in array dinamico

[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),"|")
%>