Genusis's questions/help page.

[genusis]

Ok well since I really do not want to create a whole bunch of different topics I decided to make one topic in this area for all my problems and for all the help I give to.Well my first problem is about binary stuff. Since I have not been coding in a while I forgot somethings. So ok here it is.

Code:

Sub SaveShop(ByVal ShopNum As Long)
Dim FileName As String
Dim f As Long

    FileName = App.Path & "\data\shops.bin"
        
    f = FreeFile
    Open FileName For Binary As #f
        Put #f, , Shop(ShopNum)
    Close #f
End Sub

Is this the rigth way or is the one below.

Code:

Sub SaveShop()
Dim FileName As String
Dim f As Long

    FileName = App.Path & "\data\shops.bin"
        
    f = FreeFile
    Open FileName For Binary As #f
        Put #f, , Shop(index)
    Close #f
End Sub

I think anyone who helps me with my problems. So I Thank You All For Your Help.

*Your friend*
Genusis