Datei in Rar bzw. Zip verpacken

    Hallo Leute,
    ich möchte mir gerne eine Datei über AutoIt senden.
    Leider blockiert der Outlook Express die Datei bzw. löscht sie ganz aus der E-Mail.
    Jetzt meine Frage: Ist es möglich, dass AutoIt die Datei vorher in eine Rar oder in eine Zip Datei verpackt?
    Also gibt es da irgendein Befehl dafür?
    Danke

    LG
    Manlius

    Also bei dem "Meine ZIP UDF" muss man diese Code da als Include benutzen oder wie?!?!
    Die 7z Datei hab ich in den Ordner C:\Programme\7-Zip gespeichert. Also so wie´s in dem Code steht...

    Achso okay das wusste ich nicht.
    Also bei mit sieht das jetzt so aus:

    Spoiler anzeigen
    [autoit]


    #Include<Zip.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _FileToARchive (@scriptdir&"\Beeper.exe",@ScriptDir&"\Beeper6.zip")

    [/autoit]

    Das funktioniert aber nicht. Error oder so zeigt die Console nicht an und es öffnet sich auch ein cmd fenster, welches nach ner halben Sekunde oder so wieder verschwindet.

    ICh hab hier was von Stilgar:

    Spoiler anzeigen
    [autoit]

    #Region Zip-UDF
    ;======================================
    ;| Thanks to Stilgar ;) |
    ;======================================
    Func _ZipAdd($zipFile, $addFile)
    Local $oShell, $oDir

    [/autoit] [autoit][/autoit] [autoit]

    $oShell = ObjCreate("Shell.Application")

    [/autoit] [autoit][/autoit] [autoit]

    If IsObj($oShell) Then
    $oDir = $oShell.NameSpace($zipFile)
    $oDir.CopyHere($addFile)
    Sleep(500)
    Return 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Return 0
    EndFunc ;==>_ZipAdd

    [/autoit] [autoit][/autoit] [autoit]

    Func _ZipCreate($zipFile)
    Local $i, $sHeader, $file, $err

    [/autoit] [autoit][/autoit] [autoit]

    $sHeader = "PK" & Chr(5) & Chr(6)
    For $i = 0 To 17
    $sHeader &= Chr(0)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    $file = FileOpen($zipFile, 2)
    $err = FileWrite($file, StringToBinary($sHeader))
    FileClose($file)

    [/autoit] [autoit][/autoit] [autoit]

    Return $err
    EndFunc ;==>_ZipCreate
    #EndRegion Zip-UDF

    [/autoit]

    Bei dem macht mein SciTe "Dicke Backen":

    C:\Programme\AutoIt3\Include\Zip-UDF.au3 (12) : ==> The requested action with this object has failed.:
    $oDir.CopyHere($addFile)
    $oDir.CopyHere($addFile)^ ERROR
    >Exit code: 1 Time: 0.644

    Edit: OK hat sich geklärt. Das mit dem UDF von Stilgar funktioniert jetzt!
    Danke