Thanks to everyone for all input, mabe i should let the sleeping dog lie. It seems to work on most pcs.
As I've said, I'd be happy to give this a test to help you find your bug, but that can't be done given that your debug version won't produce a debug log! Try using the following snippet and let's find this sleeping dog.
Function WriteLog(s$, f$="log.txt") If FileType(f) Then file = OpenFile(f) SeekFile(file, FileSize(f)) Else file = WriteFile(f) EndIf WriteLine(file, s) CloseFile(file) End Function
Example:
WriteLog("Logging in file log.txt...") WriteLog("Logging to log2.txt...", "log2.txt") WriteLog("Logging to default log again...")
Courtesy of "soja" ...from the code archives.