entpacken

  • hallo.


    Mit

    Spoiler anzeigen
    [autoit]


    $sZipname = "zusammengepackt"
    $sFoldertozip = "C:\beispieldateien\*.*"
    _zip($sZipname,$sFoldertozip)

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

    Func _zip($sZipname,$sFoldertozip)
    If Fileexists(@scriptdir & "\7z.exe") <> 1 Then Seterror(1,0,0)
    IF Fileexists($sFoldertozip) = 0 Then Seterror(2,0,0)
    RunWait(@ComSpec & ' /c ' & '7z a -tzip ' & $sZipname & " " & Chr(34) & $sFoldertozip & "\" & Chr(34), @ScriptDir,@SW_HIDE)
    IF @error <> 0 Then Seterror(3,0,0)
    EndFunc

    [/autoit]

    packe ich die sachen zusammen und das geht auch.

    Wie entpacke ich jetzt alles wieder, ohne weitere Eingaben. Also da auspacken, wo das Script dann liegt.

    LG, Lina.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Einmal editiert, zuletzt von Alina (5. April 2008 um 18:51)

  • Danke,
    Lösung war: Run('7z x zusammengepackt.zip' & ' -o' & @ScriptDir).

    Aber Dein Ansatz hat mir sehr geholfen.

    LG, Lina.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr