acheiving urber speed question.

[genusis]

OK got that part well now I'm working on trying to convert my items to binary to. The only problem is

Code:

Sub SaveItem(ByVal ItemNum As Long)
Dim FileName As String

    FileName = App.Path & "\data\items.bin"
    
    Get #nFileNum, , Item(i).Name
        Get #nFileNum, , Item(i).Pic
        Get #nFileNum, , Item(i).Type
        Get #nFileNum, , Item(i).Data1
        Get #nFileNum, , Item(i).Data2
        Get #nFileNum, , Item(i).Data3
    Call PutVar(FileName, "ITEM" & ItemNum, "Name", Trim(Item(ItemNum).Name))
    Call PutVar(FileName, "ITEM" & ItemNum, "Pic", Trim(Item(ItemNum).Pic))
    Call PutVar(FileName, "ITEM" & ItemNum, "Type", Trim(Item(ItemNum).Type))
    Call PutVar(FileName, "ITEM" & ItemNum, "Data1", Trim(Item(ItemNum).Data1))
    Call PutVar(FileName, "ITEM" & ItemNum, "Data2", Trim(Item(ItemNum).Data2))
    Call PutVar(FileName, "ITEM" & ItemNum, "Data3", Trim(Item(ItemNum).Data3))
End Sub

And

Code:

Sub LoadItems()
Dim FileName As String
Dim i As Long

    Call CheckItems
    
    FileName = App.Path & "\data\items.bin"
    
    For i = 1 To MAX_ITEMS
        Get #nFileNum, , Item(i).Name
        Get #nFileNum, , Item(i).Pic
        Get #nFileNum, , Item(i).Type
        Get #nFileNum, , Item(i).Data1
        Get #nFileNum, , Item(i).Data2
        Get #nFileNum, , Item(i).Data3
        'Item(i).Name = GetVar(FileName, "ITEM" & i, "Name")
        'Item(i).Pic = Val(GetVar(FileName, "ITEM" & i, "Pic"))
        'Item(i).Type = Val(GetVar(FileName, "ITEM" & i, "Type"))
        'Item(i).Data1 = Val(GetVar(FileName, "ITEM" & i, "Data1"))
        'Item(i).Data2 = Val(GetVar(FileName, "ITEM" & i, "Data2"))
        'Item(i).Data3 = Val(GetVar(FileName, "ITEM" & i, "Data3"))
        
        DoEvents
    Next i
End Sub

use a different method. one uses

Code:

'Item(i).

And the other uses

Code:

"ITEM" & ItemNum

how would i do this just give me an example for the

Code:

"ITEM" & ItemNum