I think I found the problem:
Code:
Sub AddLog(ByVal Text As String, ByVal FN As String)
Dim FileName As String
Dim f As Long
If ServerLog = True Then
FileName = App.Path & "\logs\" & FN
If Not FileExist(FN) Then
f = FreeFile
Open FileName For Output As #f
Close #f
End If
f = FreeFile
Open FileName For Append As #f
Print #f, Time & ": " & Text
Close #f
End If
End Sub
Dim FileName As String
Dim f As Long
If ServerLog = True Then
FileName = App.Path & "\logs\" & FN
If Not FileExist(FN) Then
f = FreeFile
Open FileName For Output As #f
Close #f
End If
f = FreeFile
Open FileName For Append As #f
Print #f, Time & ": " & Text
Close #f
End If
End Sub
Notice the AddLog only checks to see if FN exists, not if it exists in the logs folder. SO, it sees that the log file is not in the main folder, so it re-creates it in the log folder BECAUSE it's using FileName which has defined logs. Simple change FileExist(FN) to FileExist("logs\" & FN) and it should work...
