Private Type Datensatz
  Name As String * 40
  Vorname As String * 40
  Strasse As String * 40
  PLZ As String * 8
  Ort As String * 40
End Type
 
Dim Daten As Datensatz
Dim nCount As Long
 
F = FreeFile
Open "Daten.txt" For Random As #F Len=Len(Daten)
nCount = Int(Lof(F) / Len(Daten))
Close #F
 
MsgBox CStr(nCount) & " Datensätze!"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de