Проблема с файлами пользовательского доступа

[AnarCky]

Вот с таким кодом возникла проблемка в виде исключения.

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


    Private Sub cmdOk1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk1.Click
        Dim i As Integer
        FileOpen(77, "Каталог веществ\katalog.ctv", OpenMode.Random)
        If txtNas.Text = "" OrElse txtFor.Text = "" Then
            MessageBox.Show("Текстовое поле должно быть заполнено!", "UCIS", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        Else
            zapis(1).Nasv = txtNas.Text
            zapis(1).obosn = txtFor.Text
            FilePut(77, zapis(1))
        End If
        FileClose(77)
        i = i + 1
    End Sub

    Private Sub temp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temp.Click
        Dim dan As Katalog
        FileOpen(77, "Каталог веществ\katalog.ctv", OpenMode.Random)
        FileGet(77, dan)                                                                                           *
        MessageBox.Show("Вот данные: название - " & dan.Nasv & ", а вот формула - " & dan.obosn & ".", "UCIS", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    End Sub


Ошибка на строке со звездочкой.
Текст исключения:
"An unhandled exception of type 'System.IO.EndOfStreamException' occurred in microsoft.visualbasic.dll
Additional information: Unable to read beyond the end of the stream."

Я с таким еще не сталкивался... Помогите плззз. В чем вообще суть? Что не так?
Большое спасибо!

[Viper]

Дык это... попытка чтения за пределами файла.

З.Ы. А что из себя структура Katalog представляет?

[AnarCky]

Вот структура.

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

    Structure Katalog
        Dim Nasv As String
        Dim obosn As String
        Structure Klasss
            Dim neorg As Nvesch
            Dim org As Ovesch
        End Structure
        Dim mass As Decimal
        Dim plotnost As Decimal
    End Structure


Если надо могу выдать полностью. Просто там четырех-уровневая структура со внутренними перечислениями. Я ничего там еще не задействовал. Вряд ли понадобится.