Ordner Überwachung

[ts-soft]

Hab den Code wieder gefunden und Fehler erkannt. Leider zu spät, da Projekt bereits ein paar Jahre auf Eis liegt

Code: Alles auswählen

Procedure FolderSpyLeft(*SLook.Look)
  Protected exit, hchangeobject
  While ThreadLeftStop = #False
    hchangeobject = FindFirstChangeNotification_(*SLook\Directory, 0, #FILE_NOTIFY_CHANGE_FILE_NAME | #FILE_NOTIFY_CHANGE_DIR_NAME | #FILE_NOTIFY_CHANGE_LAST_WRITE | #FILE_NOTIFY_CHANGE_ATTRIBUTES)
    If WaitForSingleObject_(hchangeobject, *SLook\milliseconds) = 0
      ThreadLeftStop = #True
      Continue
    EndIf
    FindNextChangeNotification_(hchangeobject)
  Wend
EndProcedure

Gruß
Thomas

[silbersurfer]

@TS-Soft

Hab den Code wieder gefunden und Fehler erkannt. Leider zu spät, da Projekt bereits ein paar Jahre auf Eis liegt

kein Problem hatte ich auch nur als vergleich herangezogen, da ich mich mit deinen Projekt viel ausseinader gesetzt hatte (Vorbildfunktion)