🚀 go-pugleaf

Wat ik wil doen is een tekst-bestand openen en elke regel afzonderlijk
opslaan in een variabele. Maar ik weet niet op voorhand hoeveel regels het
tekstbestand zal zijn...
Dus ik probeer het als volgt:

Dim intTeller as integer
Dim intTellerke as integer

    Open App.Path & "\Logs.log" For Input As #1
        While Not EOF(1)
            intTeller = intTeller + 1
        Wend

    ReDim strLog(1 to intTeller) as string

        While not EOF(1)
            intTellerke = intTellerke+1
            Line Input #1, strLog(intTellerke)
        Wend
    Close #1

Als ik het zo doe, dan krijg ik al een overflow op mijn intTeller. Het
tekstbestand dat ik wil inlezen is nochtans niet zoveel regels lang dan nen
integer...

Dan nog een vraagje over die ReDim... Eigenlijk moet die variabele strLog
een publieke variabele zijn die over heel mijn programma gekend is maar met
die ReDim lukt dat dus nie �... is er dan geen ander commando? RePublic ofzo
bestaat niet ;-)

--
------------------------------------
Http://Come.to/Scruta
------------------------------------