doubt reading file

[soryjero]

hi,

 

now i am trying to read a file, but the problem is that at the start of the file, you can the last index of the pet/item/skill...

 

and the really problem is that at the start i can read, for example 400, but there are only 50 notices/pets/skills and i dont know how to use EOF because i use this to open file:

 

ofd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            ofd.Filter = "file|file*.[CeNsOrEd]"
            result = ofd.ShowDialog
            If ofd.FileName <> Nothing Then
                Dim fs As New FileStream(ofd.FileName, FileMode.Open)
                Dim br As New BinaryReader(fs)

 

so i dont know how to read until the end of file.

 

 

could anyone help me please?

 

thanks in advance