ZIP mit Progress

philipp

Hi,

kann mir jemand behilflich sein, ich würde gerne via FileInstall() einen zip ordner installieren, und diesen selbstverständlich dann auch entpacken. gibt es eine möglichkeit den status beim entpacken auszulesen und dann halt anzugeben wie viel prozent das ganze hat?

Lg Phil-IT

**minx**

Schau dir mal BugFix' ZIP - Packen / Entpacken mit Windows eigener Funktion an. Dort wird die Progressbar des normalen Windows-Explorers benutzt. Das wäre die einfachste Möglichkeit:

**water**

Im engl. Forum gibt es dazu auch einige Beispiele.

philipp

danke minx! endlich mal eins was ich noch nicht gefunden habe, ich werde es gleich testen!
*EDIT: Naja gut bei mir erstellt sich ein fenster zum verschieben das ist etwas doof.... kann man das irgendwie hiden?

water, ich habe schon einige foren durchsucht und auch vieles gefunden aber es gab immer etwas was mich gestört hat.. sorry:D

Yaerox

Mehr informationen, sonst kann niemand wirklich helfen ...

philipp

Ich denke das ZIP Programm (unten noch im Spoiler) entpackt es erst in einen Temporären ordner und von da aus wird es dann kopiert, in den Pfad der oben im script angegeben ist.. ganz normales Explorer kopieren halt.. siehe bild.

Spoiler anzeigen

[autoit]

_BuildInZIP(@DesktopDir & "\test.zip", @DesktopDir & "\test")

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

Func _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=True, $iIndexBase=1, $fOverwrite=True)
Local $fh, $sNul = '', $sZIPHeader, $objShell = ObjCreate("Shell.Application"), $objZipOrdner, $err = 0
$sPath = FileGetLongName($sPath, 1)
If $fUnZip Then
Local $temp, $objZip
If Not FileExists($s_a_ToZip) Then DirCreate($s_a_ToZip)
$temp = $objShell.Namespace($s_a_ToZip)
$objZip = $objShell.Namespace($sPath)
$temp.CopyHere($objZip.Items)
Return 1
EndIf
If (Not $fOverwrite) And FileExists($sPath) Then Return SetError(1,0,0)
If StringRight($sPath, 4) <> '.zip' Then Return SetError(2,0,0)
For $i = 1 To 18
$sNul &= Chr(0)
Next
$sZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & $sNul
$fh = FileOpen($sPath, 10)
FileWrite($fh, $sZIPHeader)
FileClose($fh)
$objZipOrdner = $objShell.Namespace($sPath)
If Not IsArray($s_a_ToZip) Then
If Not FileExists($s_a_ToZip) Then Return SetError(3,1,0)
$objZipOrdner.CopyHere($s_a_ToZip)
Sleep(1000)
Return 1
EndIf
For $i = $iIndexBase To UBound($s_a_ToZip) -1
If Not FileExists($s_a_ToZip[$i]) Then
$err += 1
ContinueLoop
EndIf
$objZipOrdner.CopyHere($s_a_ToZip[$i])
Sleep(1000)
Next
If $err Then Return SetError(3,$err,0)
Return 1
EndFunc

[/autoit]

**Schnitzel**

Richtig so arbeiteten die Windows zip funktionen. Der Ordner ist in %Temp%

philipp

ja das dachte ich mir schon:D:D aber ich will eigentlich wissen wie ich das verstecken kann?? kann man das irgendwie verstecken das fenster kopieren...

**Schnitzel**

Ich hatte mal diese UDF verwendet:
http://www.autoitscript.com/forum/topic/11…ldrdll-library/

Nutzt auch die Windows zip Funktionen und soweit ich mich erinnere konnte man das Fenster verstecken

Yaerox

Wenn ich via cmd auf Windows was kopiere oder die AutoIt FileCopy Funktion nutze kommt diese Anzeige auch nicht.

Oder versteh ich grad irgendwas ganz falsch?

**Schnitzel**

Zitat von YaeroxXO

Oder versteh ich grad irgendwas ganz falsch?

Jup. Da verstehst du was falsch.
Wir wollen nicht kopieren sondern zippen

philipp

Danke schnitzel die UDF ist gut funktioniert auch gut! dauert zwar ein kleines bisschen länger aber das ist nicht schlimm.. wenigstens ist jetzt schonmal alles versteckt! kann man bei dieser UDF jetzt auch noch den status wie weit dekomprimiert ist abrufen?

Yaerox

Zitat von Schnitzel

Jup. Da verstehst du was falsch.
Wir wollen nicht kopieren sondern zippen

Ahhh, da geht mir nun ein *hier soll ein Lämpchen icon stehen* auf

Ich dachte das sei zu dem Zeitpunkt schon entpackt danek für die Info