Type VokDaten
  Deutsch As String * 50
  Englisch As String * 50
End Type

Dim F As Integer
Dim Daten As VokDaten
Dim nCount As Long
 
F = FreeFile
Open "Vokabeln.dat" For Random As #F Len = Len(Daten)
 
' Neuen Datensatz anfügen
nCount = Int(Lof(F) / Len(Daten)) + 1
With Daten
  .Deutsch = "vb@rchiv"
  .Englisch = "the best!"
End With
Put #F, nCount, Daten
Close #F

Dim F As Integer
Dim Daten As VokDaten
 
F = FreeFile
Open "Vokabeln.dat" For Random As #F Len = Len(Daten)
 
' Datensatz Nr. 1 auslesen
Get #F, 1, Daten
MsgBox RTrim$(Daten.Deutsch) + vbCrLf + RTRim$(Daten.Englisch)
 
' Datensatz Nr. 100 auslesen
Get #F, 100, Daten
MsgBox RTrim$(Daten.Deutsch) + vbCrLf + RTRim$(Daten.Englisch)
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de