codice:
    Dim N As Integer
    Dim strRead As String * 10
    Dim i As Long
    N = FreeFile
    
    Open App.Path & "\test.txt" For Binary As #N Len = Len(strRead)
    
    i = 1
    Do While EOF(N) = False
        Get #N, i, strRead
        List1.AddItem strRead
        i = i + Len(strRead)
    Loop
    
    Close #N
scritto velocemente
Legge 10 caratteri alla volta.