break on
$iRC=SETOPTION('WrapAtEOL','on')
$HABObject = createobject("HBullock.AdminObjects")
if vartypename($HABObject1) <> "Object"
  ? "@serror"
endif

; ChangeNotify test code 
; Valid Filters (string containing any of the following flags separated by whitespace): 
;   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 

;$ChangeNotify1 = $HABObject.ChangeNotify ("c:\data\scripts", 1, "FILE_NAME") 
;$ChangeNotify2 = $HABObject.ChangeNotify ("c:\data\scripts", 1, "SIZE") 
; 
; 
;$loop = 1 
;while ($loop) 
;    do 
;        $i = 1+ $i 
;        $result1 = $ChangeNotify1.wait(200) ; milliseconds 
;        $result2 = $ChangeNotify2.wait(200) ; milliseconds 
;        ? "Timeout: " + $i 
;       If $i>50 $loop=0 endif 
;    until $result1 <> 0 or $result2 <> 0 or $i>50 
; 
;    if $result1 
;        ? "FILE_NAME: Something changed" 
;        $rc = $ChangeNotify1.reset 
;        ;Do Something about it... 
;    endif 
;    if $result2 
;        ? "SIZE: Something changed" 
;        $rc = $ChangeNotify2.reset 
;        ;Do Something about it... 
;    endif 
;loop 

$Zip1 = $HABObject.Zip("C:\Data\Download\BBchecker.zip")
$num = $Zip1.numberOfMembers
? @serror
? "Num of files in archive: " + $num
?
; Output list of files in the archive 
; Note the use of the "List" method to make the array. This is case sensative. 
$files = $Zip1.List.memberNames
$x=1
for each $member in $files
    ? ""+ $x + ": " + $member
    $x = $x + 1
next


; Get a file from the archive as an object 
?
$file = "view.kix"
$member = $Zip1.memberNamed( $file )
? "compressionMethod   = " + $member.compressionMethod
? "lastModFileDateTime = " + $member.lastModFileDateTime
? "crc32string         = " + $member.crc32String
? "uncompressedSize    = " + $member.uncompressedSize
? "compressedSize      = " + $member.compressedSize

; Extract file to a specified location. 
?
$rc = $member.extractToFileNamed( "C:\Data\Scripts\PerlCtrl\objects\" + $file )
if $rc = 0
    ? "Extraction was successful"
else
    ? "Extraction Failed: $rc  @serror"
endif

?
$Zip2 = $HABObject.Zip()

$files = "C:\Data\Scripts\PerlCtrl\objects\Zip.html",
         "C:\Data\Scripts\PerlCtrl\objects\HABobjects2.DLL",
         "C:\data\scripts\[censored].kix"

for each $file in $files
    $member = $Zip2.addFile( $file )
    if $Zip2.writeToFileNamed( "C:\Data\Scripts\PerlCtrl\objects\Test.zip" ) = 0
        ? "Added: " + $file
    endif
next