By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,401 Members | 1,381 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,401 IT Pros & Developers. It's quick & easy.

Binary File Access

P: n/a
In VB6 I readed data with this code:
Open App.Path & "\SI" for Binary As #1
Get #1, , lngCount
ReDim SI(lngCount) as MapPoints
Get #1, , SI()
Close #1

Structure MapPoint
Public GridEast As Single
Public GridNorth As Single
End Structure

Dim SouthIsland(2000) As MapPoint
Dim lngCount As Long
Dim ReadString As String

ReadString = CurDir() & "\SI"
FileOpen(1, ReadString, OpenMode.Binary)

FileGet(1, lngCount)

lngCount should = 1747. If I change FileGet(1, lngCount) to FileGet(1,
SouthIsland) I can read all the data but I need
to know the number of records.

Thanks, Simon.

Nov 20 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.