Se non sai la lunghezza del record puoi provare:
codice:Open "c:\file.txt" For Binary Access Read Write Shared As #1 Do Until EOF(1) Line Input #1, a Loop 'Riga contiene la stringa da aggiungere Put #1, , Riga Close #1
Se non sai la lunghezza del record puoi provare:
codice:Open "c:\file.txt" For Binary Access Read Write Shared As #1 Do Until EOF(1) Line Input #1, a Loop 'Riga contiene la stringa da aggiungere Put #1, , Riga Close #1