http://home.comcast.net/~habullock/habobjects.htm

Just use one of the DIR functions to get an array of filenames. Then:
Code:
?
$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
_________________________
Home page: http://www.kixhelp.com/hb/