Moskitos

Beim Aufräumen bin ich auf ein altes Problem gestoßen. Wenn ein Anwender eine Access-Datenbank verbindet und in dem Verzeichnis der Datenbank keine Schreibrechte hat blockiert er alle anderen Anwender. Ein solcher Anwender hindert nämlich alle anderen Anwender am Schreiben der Datenbank. Die Lösung steht unten. Die Prozedur testet, obman in einem Verzeichnis schreibrechte hat. Damit kann dann verhindert werden, dass Moskito die Datenbank verbindet.

Grüße

Horst Wessel

-------------

DefineProcedure writeCheck
! arg1 = Filename
  Declare f
  Declare testfile
  Declare returnValue
  Value returnValue 0
  Value testfile s_concat(Value(arg1) . AnyGetinfo(ROOT PROCESSID) . GetUser() .tst)
  Value f f_open(s_concat(Value(arg1) .tst) w)
  c_if "m_gt(s_strlen(Value(f)) 1)"
    f_close(Value(f))
    f_unlink( Value(testfile))
    Value returnValue 1
  c_endIf
EndProcedure