Ladebalken mit Funktion laufen lassen

bam176

Hallo Zusammen,

ich habe mir eine kleine Funktion geschrieben, die mir einen lokalen Ordner auf meine NAS kopieren/sichern soll.
Dazu habe ich mir einen Ladebalken mit in die Funktion geschrieben.
Aktuell läuft die Copy-Funktion und dann erst der Ladebalken.
Lässt sich das so gestalten, dass der Ladebalken den tatsächlichen Kopierfortschritt anzeigt?
Später würde ich damit gerne noch ein paar andere Ordner von meinem Rechner auf meine NAS sichern.
Dazu würde ich die Funktion mehrmals mit dem jeweiligen Ordnerpfad als Parameter aufrufen.
Ich habe schon im Forum nach ähnlichen Problemen gesucht aber nichts gefunden, was ich auf meinen Fall hätte anwenden können bzw. verstanden habe.

AutoIt

#include <FileConstants.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$user = @UserName
$todays_date = _NowDate ()
$backup_path = ''
$documents_path = 'C:\Users\'&$user&'\Documents'

$bprogress_title = "Backup"
$bprogress_text = "Backup"
$rprogress_title = "Restore"
$rprogress_text = "Restore"

;Aufruf Funktion
backup ($bprogress_title,$bprogress_text&' Dokumente Ordner',$documents_path,$backup_path&'Documents')


;Backup Funktion
Func backup($bprogress_title,$bprogress_text,$sourcedir, $destdir)
        ProgressOn ($bprogress_title, $bprogress_text)
        $copy1=DirCopy ( $sourcedir, $destdir, $FC_OVERWRITE)
        For $i = 10 To 100 Step 10
            Sleep(500)
            ProgressSet($i, $i & "%")
        Next
        ProgressOff()
EndFunc

Alles anzeigen

**Kanashius**

Um eine vernünftige Fortschrittsanzeige zu erstellen musst du das kopieren in Teile zerlegen.

Statt mit DirCopy zu kopieren also alle Dateien auflisten (_FileListToArrayRec) und einzeln kopieren. Den Fortschritt nach der Anzahl bisher kopierten Dateien berechnen (Round($akt,$max,2)*100).

Wenn es noch genauer sein soll, kannst du noch die Dateigröße auslesen und mit einbeziehen.

Mit DirCopy ist die Fortschrittsanzeige also nicht vernünftig möglich.

MfG Kanashius

**Bitnugger**

Schau dir dieses Beispiel mal an... evtl. ist das ja was für dich.

AutoIt

;-- TIME_STAMP   2017-05-12 21:48:19

#Region    ;************ Includes ************
#include-once
#Include <FileConstants.au3>
#include <WinAPIShPath.au3>
#EndRegion ;************ Includes ************

Local $iCopy = Example()
If @error Then MsgBox(262160, '_CopyWhithProgress', "$iCopy --> " & $iCopy & @CRLF & "!@ " & @TAB & "#Error: " & @error & @TAB & "#Extended: " & @extended & @CRLF)

Func Example()
    Local $sCopyFrom = FileOpenDialog('Was soll kopiert werden?', @DesktopDir, 'All (*.*)', $FD_PATHMUSTEXIST) ; $hWnd)
    If @error Then Return SetError(@error +1, 1, '$sCopyFrom = ' & $sCopyFrom)
    Local $sCopyTo   = FileSaveDialog('Wohin soll es kopiert werden?', @DesktopDir, 'All (*.*)', $FD_PATHMUSTEXIST, StringInStr(FileGetAttrib($sCopyFrom), 'D') ? $sCopyFrom : _WinAPI_PathStripPath($sCopyFrom)) ; $hWnd)
    If @error Then Return SetError(@error +2, 2, '$sCopyTo = ' & $sCopyTo)

    _CopyWhithProgress($sCopyFrom, $sCopyTo)
    If @error Then Return SetError(@error +3, 3, '_FileCopy()')
EndFunc

; Windows - copy with progress
; Author - JdeB

;~    4 Do not display a progress dialog box.
;~    8 Give the file being operated on a new name in a move, copy, or rename operation if a file with the target name already exists.
;~   16 Respond with "Yes to All" for any dialog box that is displayed.
;~   64 Preserve undo information, if possible.
;~  128 Perform the operation on files only if a wildcard file name (*.*) is specified.
;~  256 Display a progress dialog box but do not show the file names.
;~  512 Do not confirm the creation of a new directory if the operation requires one to be created.
;~ 1024 Do not display a user interface if an error occurs.
;~ 2048 Version 4.71. Do not copy the security attributes of the file.
;~ 4096 Only operate in the local directory. Don't operate recursively into subdirectories.
;~ 8192 Version 5.0. Do not copy connected files as a group. Only copy the specified files.
Func _CopyWhithProgress($sCopyFrom, $sCopyTo)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 256
    $oShell = ObjCreate("shell.application")
    If Not IsObj($oShell) Then Return SetError(3, 3, '$oShell = ' & $oShell)

    Local $iDirCreate, $sCopyTargetDir = StringInStr(FileGetAttrib($sCopyTo), 'D') ? $sCopyTo : _WinAPI_PathStripPath($sCopyTo)
    If Not FileExists($sCopyTargetDir) Then $iDirCreate = DirCreate($sCopyTargetDir)
    If $iDirCreate = 0 Then Return SetError(4, 4, '$iDirCreate = ' & $iDirCreate)

    $oShell.namespace($sCopyTo).CopyHere($sCopyFrom, $FOF_RESPOND_YES)

    Return True
EndFunc

Alles anzeigen

bam176

Bitnugger vielen dank für den Code, das werde ich mal bei Gelegenheit ausprobieren. Vorerst werde ich es mal ohne Ladebalken lassen.

**Musashi**

Hallo bam176

Für den Fall, dass bis zu Deinem nächsten Besuch nicht wieder 8 Monate vergehen :

Zum Kopieren/Verschieben mit Fortschrittsanzeige gibt es die schöne UDF _FileCopyEx von Oscar .

Einfach Deine Func backup mit dem Code des Beispiels versehen - Fertig !

Gruß Musashi