File moving verstecken ?

[Terrat]

Hallo,

ich mache derzeit ein downloader der in einzelnen datein (1,7 gb alles) downloadet. Kein problem da ich aber die datein als zip downloade und sie dan vorort entpacken lasse kommt immer dieses hässlige move interface von windows mit datein werden kopiert. Dieses sollen die User aber nicht mitbekommen. Wie machen ich das
?

[alpines]

Wenn AutoIt Daten verschiebt dann sollte da nichts angezeigt werden, ansonsten WinSetState @SW_HIDE.

[YatoDev]

7zip udf hidet beim entpacken alles auch wenn du es in einen anderen ordner entpackst (soweit ich weis)

[Terrat]

?

Funktion fürs unpacken

Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 1)
	Local $DLLChk = _Zip_DllChk()
	If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll
	If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
	If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) ;no zip file
	If Not FileExists($hDestPath) Then DirCreate($hDestPath)
	Local $aArray[1]
	$oApp = ObjCreate("Shell.Application")
	$oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items)
	For $item In $oApp.Namespace($hZipFile).Items
		_ArrayAdd($aArray, $item)
	Next
	While 1
		If $flag = 1 then _Hide()
		If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then
			Return SetError(0, 0, 1)
			ExitLoop
		EndIf
		Sleep(500)
	WEnd
EndFunc   ;==>_Zip_UnzipAll

[alpines]

WinSetState Kopieren von @SW_HIDE.

[Terrat]

wtf was meinst du damit ?

[SpieleHacksInfo]

WinSetState("Kopieren von","",@SW_HIDE)

[alpines]

War das jetzt so schwer?

[SpieleHacksInfo]

Originally Posted by alpines

War das jetzt so schwer?

anscheinend

[Terrat]

gott das kann ih auch aber es springt den user trozdem erstmal ins gesicht und lässt die gui aufplopen ich möchte das aber nicht ich möchte das man es von hausaus nicht sieht das man zb noch ein game nebenzocken kann.

(sry bin etwas genervt)

[Brendan Jordan]

PHP Code:

;===============================================================================
; Function Name:   _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=True, $iIndexBase=1, $fOverwrite=True)
; Description:     Erstellt aus einer Datei od. einem Array von Dateien eine ZIP-Datei
;                  mit Hilfe der Windows eigenen ZIP-Funktion
; Parameter(s):    $sPath       Pfad der zu erstellenden ZIP-Datei // Bestehenden ZIP-Datei
;                  $s_a_ToZip   String der Einzeldatei oder Array der zu zippenden Dateien
;                               // Pfad des Zielordners, in den entpackt werden soll
;                  $fUnZip=True Entpacken=True, Packen=False (Standard)
;                  $iIndexBase  Index Basis (erstes Element mit Pfad) des übergebenen Arrays (0 od.1)
;                  $fOverwrite  Falls $sPath existiert ==> Überschreiben (Standard=True)
; Return Value(s): Erfolg  1
;                  Fehler  set @error  1 - Überschreiben aus, aber Zieldatei existiert
;                                      2 - Zieldatei endet nicht auf ".zip"
;                                      3 - zu komprimierende Datei existiert nicht
;                                          @extended: Anzahl der fehlenden Dateien
; Author(s):       BugFix (bugfix@autoit.de)
;===============================================================================
Func _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=False, $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  ;==>_BuildInZIP

_BuildInZIP("C:\Users\Freddy\Desktop\IMG\Test.zip",@DesktopDir, True) 


So gehts ohne Probleme und man muss die dumme .au3 dafür nicht benutzen. Copyrights by bugfix

[Terrat]

gelesen danke werde mal ausprobieren

immer noch sehbar