error creating a Zip file

[SoftVoile]

hi, please help me in creating a zip file with some files using autoit script.

script:

$ZipArchive = @ScriptDir & "\tmp.zip"; Put here the full path and name ame of archive you would like to create
$AddFile = @ScriptDir & "\ff.au3";; Put here the the File you would like to compress in the zip   
$AddFile2 = @ScriptDir & "\sss_4.au3"; Take another File ...


$oShell = ObjCreate("Shell.Application"); Create s shell Object

if IsObj($oShell) then             
    InitZip($ZipArchive); Create an emtpy zip file with header   
    $oDir = $oShell.NameSpace($ZipArchive); Use the zip file as an "Folder"
    $oDir.CopyHere ($AddFile); Copy a file in the "Zip Folder"
    $oDir.CopyHere ($AddFile2); Copy a second file
    sleep (500); Give the Objekt a litte bit time to work
else
    Msgbox (0,"Error","Error creating Object.")
endif

Error:

[funkey]

$ZipArchive = @ScriptDir & "\tmp.zip"; Put here the full path and name ame of archive you would like to create

$AddFile = @ScriptDir & "\ff.au3";; Put here the the File you would like to compress in the zip   
$AddFile2 = @ScriptDir & "\sss_4.au3"; Take another File ...


$oShell = ObjCreate("Shell.Application"); Create s shell Object

if IsObj($oShell) then           
    InitZip($ZipArchive); Create an emtpy zip file with header   
    $oDir = $oShell.NameSpace($ZipArchive); Use the zip file as an "Folder"
    $oDir.CopyHere ($AddFile); Copy a file in the "Zip Folder"
    $oDir.CopyHere ($AddFile2); Copy a second file
    sleep (500); Give the Objekt a litte bit time to work
else
    Msgbox (0,"Error","Error creating Object.")
endif


Func InitZip ($zip_path_name)
    $bin_zipString = Binary("0x504B0506000000000000000000000000000000000000")
    $file = FileOpen($zip_path_name,2 + 16); binary mode                 
    FileWrite($file,$bin_zipString);Write the binary in a file
    FileClose($file)
EndFunc

[torels]

the way you are adding files is not very efficient in case of big files

go and take a look at my UDF for some examples