Här är koden jag försöker använda men någonting är fel och jag vet inte vad.

Vad jag försöker göra är att läsa in en textfil och lägga varje rad av filen på en egen plats i en array.
MinVektor(CountItems) = IncomingLine 'är den rad som strular. "Subscript out of range" står de.



Dim MinVektor() As String
Dim CountItems As String
Dim IncomingLine As String


CountItems = 1

Open "c:\all.txt" For Input As #11
Do
Input #11, IncomingLine
MinVektor(CountItems) = IncomingLine
CountItems = CountItems + 1
Loop Until EOF(11)
Close #11

Du måste dimensionera om MinVektor, kolla upp kommandot ReDim.

/Johan

Okej, tack för ditt svar. Jag vet inte alltid hur stor vektorn kommer att bli, kan man inte sätta det på "auto" eller något liknande?

Jmf. din kod <b>CountItems kan inte vara String</b> vidare bör det vara <b> Line Input</b>
<code>
Option Explicit
Private Sub Command1_Click()
Dim MinVektor() As String
Dim CountItems As Long
Dim IncomingLine As String
Dim Fnum As Long
Fnum = FreeFile
ReDim MinVektor(0)
Open "c:\all.txt" For Input As #Fnum
Do Until EOF(Fnum)
Line Input #Fnum, IncomingLine
MinVektor(CountItems) = IncomingLine
CountItems = CountItems + 1
ReDim Preserve MinVektor(CountItems)
Loop
Close #Fnum
End Sub
</code>

Ett annat sätt är att först ta reda på hur många rader det finns (optimalt)

API SendMessage. Sedan kör Dim MinVektor på svaret. Overkill i detta exempel.

Dvs. For i = 0 To (svar SendMessage) det finns (rader) i denna fil.vbCrLf avslutar varje rad

Dvs chr$(10) & chr$(13)