making archive

[mLipok]

how to make a archive only with WinXP and Autoit

without any special program like WinZip WinRar ....

only using standard WinXP instalation and Autoit

this can be a zip or cab

[Xenobiologist]

how to make a archive only with WinXP and Autoit

without any special program like WinZip WinRar ....

only using standard WinXP instalation and Autoit

this can be a zip or cab

Hi & welcome,

maybe something like this.

; ----------------------------------------------------------------------------
; Author:        mozart90 + Thorsten Meger
; Script Function: Easy Zip compression under Win XP
; ----------------------------------------------------------------------------

Func zipTXT()
    $oShell = ObjCreate("Shell.Application")         ; Create s shell Object
    $ZipAchive = @ScriptDir & "\" & 'TM_PCInfo2.0.zip'
    If IsObj($oShell) Then
        initZip($ZipAchive)                       ; Create an emtpy zip file with header
        $oDir = $oShell.NameSpace ($ZipAchive)  ; Use the zip file as an "Folder"
        For $i = 10 To 1 Step - 1
            $oDir.CopyHere ($avArray[$i])           ; Copy the 10 files in the "Zip Folder"
        Next
        Sleep(700)                              ; Give the Objekt a litte bit time to work
    Else
        MsgBox(0, "Error", "Error creating Object.")
    EndIf
EndFunc ;==>zipTXT

Func initZip($zip_path_name)
    $init_zipString = Chr(80) & Chr(75) & Chr(5) & Chr(6) ; Create the Header String
    For $n = 1 To 18
        $init_zipString = $init_zipString & Chr(0)      ; the Header
    Next
    $file = FileOpen($zip_path_name, 2)
    FileWrite($file, $init_zipString)                    ; Write the string in a file
    FileClose($file)
EndFunc ;==>initZip

Have a look at : http://www.autoitscript.com/forum/index.ph...ndpost&p=146133

So long,

Mega

Edited February 21, 2006 by th.meger