Срочно! VBasic работа с файлами

[sinys]

Использую прямой доступ.
Как определить количество записей?
Пишу
CODE
record.n = Text1.Text
record.f = Text2.Text
record.name = Text3.Text
record.ot = Text4.Text
record.razr = Text5.Text
record.ceh = Text6.Text
Numberfile = FreeFile
Open "s_rab.txt" For Random As #Numberfile Len = 128
Put #Numberfile, LOF(Numberfile) / 128 + 1, record
но он не делает длину 128, он делает как есть , поэтому записи не идут подряд, а накладываются, то есть в файле
оказывается только одна запись, как решить эту проблему?

[BV]

Открываешь файл как Append и ставишь каждую строку через Print.

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
    Open "C:\File.txt" For Append As #1
        Print #1, "первая строка"
        Print #1, "вторая строка"
        '...
    Close #1
End Sub

[alibek]

Если открываешь файл для прямого доступа, то записи должны иметь фиксированный размер.

[SergT]

... записи должны иметь фиксированный размер.

Если не сложно - чуть подробнее

[AndreyIl]

Определить количество записей можно, перебирая строки по циклу.
Когда EOF, тогда i - количество записей.

[alibek]

Не

Код: Выделить всё

Type UserType
  fld1 As Long
  fld2 As String
  fld3 As Single
  fld4 As Variant
End Type

а

Код: Выделить всё

Type UserType
  fld1 As Long
  fld2 As String*40
  fld3 As Single
  fld4 As String*20
End Type

И соответственно, Dim rec As UserType, и в открытии файла Open ... Len = Len(rec)