Type t_Adressen
   Vorname as String * 20
   Nachname as String * 50
   ...
   ...
end type
 
Public Adressen (1 to 10) as t_Adressen
...
...
 
Dim DateiNr As Integer, n As Integer
DateiNr = FreeFile
Open "Datei.dat" For Random As DateiNr Len = Len(Adressen(1))
    For n = 1 To UBound(Adressen)
        Put #DateiNr, n , Adressen(n)
    Next n
Close DateiNr

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control