PureBasic Forums - English

Code: Select all

#FILE_NOTIFY_CHANGE_FILE_NAME = 1
; Any file name change in the watched directory or subtree
; causes a change notification wait operation to return.
; Changes include renaming, creating, or deleting a file name. 

#FILE_NOTIFY_CHANGE_DIR_NAME = 2
; Any directory-name change in the watched directory or
; subtree causes a change notification wait operation to return.
; Changes include creating or deleting a directory. 

#FILE_NOTIFY_CHANGE_ATTRIBUTES = 4
; Any attribute change in the watched directory or subtree causes
; a change notification wait operation to return. 

#FILE_NOTIFY_CHANGE_SIZE = 8
; Any file-size change in the watched directory or subtree causes
; a change notification wait operation to return. The operating
; system detects a change in file size only when the file is written
; to the disk. For operating systems that use extensive caching,
; detection occurs only when the cache is sufficiently flushed. 

#FILE_NOTIFY_CHANGE_LAST_WRITE = $10
; Any change to the last write-time of files in the watched directory
; or subtree causes a change notification wait operation to return. The
; operating system detects a change to the last write-time only when
; the file is written to the disk. For operating systems that use extensive
; caching, detection occurs only when the cache is sufficiently flushed. 

#FILE_NOTIFY_CHANGE_SECURITY = $100
; Any security-descriptor change in the watched directory or subtree
; causes a change notification wait operation to return. 

#INVALID_HANDLE_VALUE = - 1
#INFINITE = $FFFFFFFF
#STATUS_WAIT_0 = 0
#WAIT_OBJECT_0 = #STATUS_WAIT_0 + 0

Procedure FFCN()
  ; --> We'll check for file creation and deletion in c:\
  hFFCN = FindFirstChangeNotification_("c:\", #False, #FILE_NOTIFY_CHANGE_FILE_NAME)
  If hFFCN = #INVALID_HANDLE_VALUE
    MessageRequester("Error", "Invalid FindFirstChangeNotification.")
    ExitProcess_(0)
  EndIf
  While #True
    status = WaitForSingleObject_(hFFCN, #INFINITE)
    Select status
      Case #WAIT_OBJECT_0
        MessageRequester("Info", "Change occured in C:\")
        If FindNextChangeNotification_(hFFCN) = #False
          MessageRequester("Error", "Invalid FindNextChangeNotification")
          ExitProcess_(0)
        EndIf
    EndSelect
  Wend
EndProcedure
        
If OpenWindow(0, 0, 0, 300, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "FindFirstChangeNotification" ) And CreateGadgetList(WindowID(0))
  ButtonGadget(0, 10, 10, 280, 20, "Create file: c:\Testing.txt")
  ButtonGadget(1, 10, 50, 280, 20, "Delete file: c:\Testing.txt")
  ; --> Our thread for change notifications
  CreateThread(@FFCN(), 0)
  Repeat
    event = WaitWindowEvent()
    Select event
      Case #PB_EventGadget
        Select EventGadgetID()
          Case (0)
            CreateFile(0, "c:\Testing.txt")
            CloseFile(0)
          Case 1
            DeleteFile("c:\Testing.txt")
        EndSelect
    EndSelect
  Until event = #PB_Event_CloseWindow
EndIf

Code: Select all

#FILE_NOTIFY_CHANGE_FILE_NAME | #FILE_NOTIFY_CHANGE_ATTRIBUTES