fso

Jeg skulle gerne have skrevet hver linie ind i et Array

Så jeg kan hente dem ud igen en efter en
Array(0)
Array(1)
osv

men mit script virker ikke rigtigt, kan kun hente de først to ud...


:

dim ObjFSO, ObjFile, ConnOfFile, ts
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFSO.GetFile("E:\websider\resadmin\hirayz.dk\hirayz.dk\log\W3SVC254\ex0208.log")
Set ts = ObjFile.OpenAsTextStream()
Count = -1
ReDim temp(-1)
  Do While ts.AtEndOfStream <> True
        Count = Count + 1
            ReDim Preserve temp(Ubound(temp, 1) + 1)
            temp(count) = ts.Readline
        ts.skipline
loop
ts.Close
Set ts = Nothing
Set ObjFile = Nothing
Set ObjFSO = Nothing