Ups. Un despiste. Saca el Redim Preserve de la sentencia If...then
Código:
Dim ar(), l
l = 0
if isArray(session("archivo")) then
ar = Session("archivo")
l = Ubound(ar)+1
end if
Redim Preserve ar(l)
ar(l) = FileName
Session("archivo") = ar
Mis disculpas