UdtToArray

Private Sub Form_Load()
    Dim buffer As BookType
    Dim file_length As Long
    Dim file_name As String
    Dim fnum As Integer
    Dim i As Integer
    
        ' Get the file name.
        file_name = App.Path
        If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
        file_name = file_name & "Books.dat"
    
        ' Get the file's size and allocate room.
        file_length = FileLen(file_name)
        m_NumBookData = file_length / Len(buffer)
        ReDim m_BookData(0 To m_NumBookData - 1)
    
        ' Load the book information.
        fnum = FreeFile
        Open file_name For Binary As fnum Len = file_length
        Get #fnum, 1, m_BookData
        Close fnum
    
        ' List the titles.
        For i = 0 To m_NumBookData - 1
            lstTitles.AddItem m_BookData(i).Title
            ' Save the index in the data array.
            lstTitles.ItemData(lstTitles.NewIndex) = i
        Next i
    
        ' Display the first record.
        m_SelectedRecord = -1
        lstTitles.ListIndex = 0
    End Sub

Private Sub Form_Load()
Dim buffer As BookType
Dim file_length As Long
Dim file_name As String
Dim fnum As Integer
Dim i As Integer

' Get the file name.

file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
file_name = file_name & "Books.dat"

' Get the file's size and allocate room.

file_length = FileLen(file_name)
m_NumBookData = file_length / Len(buffer)
ReDim m_BookData(0 To m_NumBookData - 1)

' Load the book information.

fnum = FreeFile
Open file_name For Binary As fnum Len = file_length
Get #fnum, 1, m_BookData
Close fnum

' List the titles.

For i = 0 To m_NumBookData - 1
lstTitles.AddItem m_BookData(i).Title
' Save the index in the data array.

lstTitles.ItemData(lstTitles.NewIndex) = i
Next i

' Display the first record.

m_SelectedRecord = -1
lstTitles.ListIndex = 0
End Sub