Sub SaveMap(path As String, Optional SSMECompatible As Boolean = False, Optional Silent As Boolean = False, Optional stripElvl As Boolean = False)
'Saves the map
'back the old one up
'if there is already a backup, kill it
'then rename the new old one to the .bak one
On Error GoTo SaveMap_Error
AddDebug "SaveMap, saving map... " & path & ", SSMECompatible " & SSMECompatible & ", Silent " & Silent
If Silent Then
frmGeneral.SetMousePointer vbArrowHourgl!@#$%^&*
Else
frmGeneral.IsBusy("frmMain" & id & ".SaveMap") = True
If FileExists(path) Then
AddDebug "SaveMap, " & path & " exists, checking for .bak file"
If FileExists(path & ".bak") Then
AddDebug "SaveMap, " & path & ".bak exists, killing it"
Kill path & ".bak"
End If
Name path As path & ".bak"
End If
End If
Dim f As Integer
f = FreeFile
AddDebug "SaveMap, opening " & path & " for binary as #" & f
Open path For Binary As #f Note that it doesn't even get to any 'AddDebug' after the first one... Just created a non-admin account on my computer... had no problem