[VBScript] Objekte in Arrays ablegen

[Luckie]

Ich versuche gerade Objekte in einem Array abzulegen und wieder auszulesen. Als Beispiel habe ich Dateien in einem Verzeichnis:

Code:

Set fo = fso.GetFolder(FOLDER)

Set files = fo.Files
i = 0
For Each file in files
  ReDim file_array(i+1)
  file_array(i) = file
  i = i + 1
Next

For i = 0 to ubound(file_array)
  file = file_array(i)
  Filedate = file.DateLastModified
  Filesize = file.Size
  Filename = file.Name
  ts.WriteLine "<tr>"
  ts.WriteLine "<td class='date'>" & Filedate & "</td>"
  ts.WriteLine "<td class='size'>" & Filesize & "</td>"
  ts.WriteLine "<td class='name'>[url='" & fo.Path & "/" & Filename & "']" & Filename & "[/url]</td>"
  ts.WriteLine "</tr>"
Next

In dem Array file_array befinden sich, oder sollten sich befinden, die file-Objekte. Allerdings sagt er mir in der For-Schleife, das er hier: Filedate = file.DateLastModified ein Objekt erwartet. Ein Cast nach Scripting.FileSystemObject.File hat auch nicht geholfen. Wie komme ich also an die Objekte dran?