[VB6]: Leggere un file di testo riga per riga

[GudFella]

Dim arr() As String
Dim i As Integer

Open file For Input Access Read Lock Read As #1
	Do While Not EOF(1)
		Redim Preserve arr(i) As String
		
		Line Input #1, str
		
		arr(i) = str
		
		i = i + 1
	Loop
Close #1