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?