Problem with Binary..

[Tony]

Ill give you the slight bit of my sub.

Code:

Sub SavePlayer(ByVal index As Long)
Dim FileName As String
Dim i As Long
Dim n As Long
Dim nFileNum As Integer

    FileName = App.Path & "\Accounts\" & Trim$(Player(index).Login) & ".dat"
    
    If FileExist(FileName, True) Then Kill FileName
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum

If you just modified those subs, I really don't understand what the problem could possibly be.

CAPS: SINCE YOU CHANGED IT TO DATA/ACCOUNTS/FILENAME.DOA MAKE SURE YOU UPDATE ACCOUNTEXIST AND ETC.

:: Pando