code:

---

   ATTRIBUTES   Any attribute change
   DIR_NAME     Any directory name change
   FILE_NAME    Any file name change (creating/deleting/renaming)
   LAST_WRITE   Any change to a file's last write time
   SECURITY     Any security descriptor change
   SIZE         Any change in a file's size
  

---

code:

---

$= SetOption("WrapAtEol","On")
? "KiXtart version = " @KIX

$HABObject1 = createobject("HBullock.AdminObjects")
if vartypename($HABObject1) <> "Object"
  ? "@serror"
endif


$ChangeNotify = $HABObject1.NewChangeNotify ("c:\data\scripts", 1, "FILE_NAME")
? "@error @serror"
?
$ChangeNotify.print
? "@error @serror"

$result = $ChangeNotify.wait
Cerror()
? "@error @serror"

? "result = " + $result
if $result
	? "Something changed"
else
	? "Failure " + @error
endif


Function Cerror()
    exit Iif(@error<0,VAL("&"+Right(DecToHex(@error),4)),@error)
Endfunction  

---

break ON





$= SetOption("WrapAtEol","On")

? "KiXtart version = " @KIX



$HABObject1 = createobject("HBullock.AdminObjects")

if vartypename($HABObject1) <> "Object"

  ? "@serror"

endif





$ChangeNotify1 = $HABObject1.NewChangeNotify ("c:\data\scripts", 1, "FILE_NAME")

? @error

$ChangeNotify2 = $HABObject1.NewChangeNotify ("c:\data\scripts", 1, "SIZE")

? @error



while (1)

	do

		$i = 1+ $i

		$result1 = $ChangeNotify1.wait(100) ; milliseconds 

		$result2 = $ChangeNotify2.wait(100) ; milliseconds 

		? "Timeout: " + $i

	until $result1 <> 0 or $result2 <> 0



	if $result1

		? "FILE_NAME: Something changed"

		$ChangeNotify1.reset

		;Do Something about it...

	endif

	if $result2

		? "SIZE: Something changed"

		$ChangeNotify2.reset

		;Do Something about it...

	endif

loop