Kopiertool

kayes

So schaut es aus:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=REORG.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt       : Kopiertool
; bearbeitet am : 19.12.2018
; ==============================================================================
; Danksagungen  :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @Musashi, @BugFix, @autoiter, @alpines, @Code-Jack  usw.
; ==============================================================================
; Changelog     :
; Setzen der Pfade für Quelle und Ziel
; 1. Versuch Kopierbefehl
; Variable $jjjj definiert und aus dem Kopierbefehl herausgenommen
; Wrapperanweisungen und Kommentarbereich hinzugefügt
; ==============================================================================
;  Variablendeklaration
;
Global $download
Global $upload
Global $rechner1
Global $rechner2
Global $rechner3
Global $source
Global $dest
Global $aSourceDest = [ ["F:\TESTUMGEBUNG\RECHNER1\Daten\", "F:\TESTUMGEBUNG\RECHNER1\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER2\Daten\", "F:\TESTUMGEBUNG\RECHNER2\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER3\Daten\", "F:\TESTUMGEBUNG\RECHNER3\Daten\"], _
                        ["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\", "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\"]]
Local $jjjj
;==============================================================================
; Beginn des Formulars:
;
$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
;
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektdown
Global $idEditProjektDown = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektDown, "19")
GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")
;
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektup
Global $idEditProjektUp = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektUp, "19")
GUICtrlSetFont($idEditProjektUp, 18, 400, 0, "MS Sans Serif")
;
; Auswahl des Aussendienstrechners
;
$rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Downloadbutton wird gesetzt
;
$download = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
; Uploadbutton wird gesetzt
;
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;==============================================================================
;
; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
;
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $download
         copydown()
      Case $upload
         copyup()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
 WEnd
;
 ; Erste Funktion Kopieren von Server auf Rechner $Projektdown
 ;
 Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $dest = $aSourceDest [0] [1]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest = $aSourceDest [1] [1]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest = $aSourceDest [2] [1]
     local $source = $aSourceDest [3] [0]

;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
;
Global $jjjjdown = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)
ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)

ConsoleWrite ($source & $jjjjdown & "\" & GUICtrlRead($idEditProjektDown) & "\Berechnungen" & @CRLF)

ConsoleWrite ($dest & $jjjjdown & "\" & GUICtrlRead($idEditProjektDown) & "\" & @CRLF)


 ;  DirCopy ($source & $jjjj & "\" & $Projektdown & "\Berechnungen", $dest & $jjjj & "\" & $Projektdown & "\", $FC_CREATEPATH, $FC_OVERWRITE)
Return
 EndFunc
;
; Zweite Funktion Kopieren von Rechner auf Server
;
  Func copyup()
     ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $source = $aSourceDest [0] [0]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source = $aSourceDest [1] [0]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source = $aSourceDest [2] [0]
    local $dest = $aSourceDest [3] [1]

;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
;
Global $jjjjup = "20" & StringTrimRight(GUICtrlRead($idEditProjektUp), 4)
ConsoleWrite ('< $Projektup = ' & $Projektup & @CRLF)

ConsoleWrite ($source & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\Berechnungen" & @CRLF)

ConsoleWrite ($dest & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\" & @CRLF)

; DirCopy ($source & $jjjj & "\" & $Projektup & "\Berechnungen", $dest & $jjjj & "\" & $Projektup & "\", $FC_CREATEPATH, $FC_OVERWRITE)
Return
EndFunc

Alles anzeigen

Die Pfade werden jetzt richtig herausgegeben.

**Musashi**

Hi kayes !

... , $FC_OVERWRITE, $FC_CREATEPATH)

ist falsch. DirCopy läßt nur EINEN flag-Parameter[optional] zu !

$FC_CREATEPATH kannst Du übrigens weglassen - wird bei DirCopy eh nicht unterstützt.

Falls das Zielverzeichnis nicht existiert, dann legt DirCopy es von sich aus an (wenn möglich) !

Korrekt ist daher :

... , $FC_OVERWRITE)

Gruß Musashi

**Musashi**

Zitat von kayes

Die Pfade werden jetzt richtig herausgegeben.

Ja, aber nur in den ConsoleWrites , nicht bei DirCopy !

Die ConsoleWrites kannst Du ruhig stehen lassen. Allerdings sollte dann aber auch statt :

ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)

ConsoleWrite ('< $Projektdown = ' & GUICtrlRead($idEditProjektDown) & @CRLF)

geschrieben werden ( bei Func copyup() analog)

WICHTIG :

In den Pfadangaben zu DirCopy steht immer noch ... "\" & $Projektdown & ...

Da muss die Syntax wie in den ConsoleWrites stehen, also :

..."\" & GUICtrlRead($idEditProjektdown) & ...

sonst erhältst Du wieder \\ ( bei Func copyup() analog)

Gruß Musashi

kayes

Danke Musashi ,

hatte ich schon korrigiert.

Ich hatte mir ein 2. Skript erstellt, das sich ausschließlich auf den Kopierbefehl konzentriert.

kayes

Moment,

hatte nicht aktualisiert und Antwort #63 nicht mitbekommen.

kayes

So,

die Pfade werden richtig angezeigt und diesselben Pfadangaben habe ich für den Kopierbefehl benutzt.

Aber er kopiert nicht.

Code nur Kopierbefehl:

Code

;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
;
Global $jjjjdown = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)
Local $prodown = GUICtrlRead($idEditProjektDown)

ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)
ConsoleWrite ($source & $jjjjdown & "\" & $prodown & "\Berechnungen" & @CRLF)
ConsoleWrite ($dest & $jjjjdown & "\" & $prodown & "\" & @CRLF)


DirCopy (($source & $jjjjdown & "\" & $prodown & "\Berechnungen\*"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen\"), $FC_OVERWRITE)
Return
 EndFunc

Alles anzeigen

kayes

So: Funktioniert!

Kompletter Code;

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=REORG.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt       : Kopiertool
; bearbeitet am : 19.12.2018
; ==============================================================================
; Danksagungen  :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @Musashi, @BugFix, @autoiter, @alpines, @Code-Jack  usw.
; ==============================================================================
; Changelog     :
; Setzen der Pfade für Quelle und Ziel
; 1. Versuch Kopierbefehl
; Variable $jjjj definiert und aus dem Kopierbefehl herausgenommen
; Wrapperanweisungen und Kommentarbereich hinzugefügt
; ==============================================================================
;  Variablendeklaration
;
Global $download
Global $upload
Global $rechner1
Global $rechner2
Global $rechner3
Global $source
Global $dest
Global $aSourceDest = [ ["F:\TESTUMGEBUNG\RECHNER1\Daten\", "F:\TESTUMGEBUNG\RECHNER1\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER2\Daten\", "F:\TESTUMGEBUNG\RECHNER2\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER3\Daten\", "F:\TESTUMGEBUNG\RECHNER3\Daten\"], _
                        ["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\", "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\"]]
Local $jjjj
;==============================================================================
; Beginn des Formulars:
;
$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
;
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektdown
Global $idEditProjektDown = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektDown, "19")
GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")

;
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektup
Global $idEditProjektUp = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektUp, "19")
GUICtrlSetFont($idEditProjektUp, 18, 400, 0, "MS Sans Serif")

;
; Auswahl des Aussendienstrechners
;
$rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Downloadbutton wird gesetzt
;
$download = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
; Uploadbutton wird gesetzt
;
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;==============================================================================
;
; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
;
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $download
         copydown()
      Case $upload
         copyup()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
 WEnd
;
 ; Erste Funktion Kopieren von Server auf Rechner $Projektdown
 ;
 Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $dest = $aSourceDest [0] [1]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest = $aSourceDest [1] [1]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest = $aSourceDest [2] [1]
     local $source = $aSourceDest [3] [0]

;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
;
Global $jjjjdown = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)
Local $prodown = GUICtrlRead($idEditProjektDown)

ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)
ConsoleWrite ($source & $jjjjdown & "\" & $prodown & "\Berechnungen" & @CRLF)
ConsoleWrite ($dest & $jjjjdown & "\" & $prodown & "\" & @CRLF)


DirCopy (($source & $jjjjdown & "\" & $prodown & "\Berechnungen"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen"), $FC_OVERWRITE)
Return
 EndFunc
;
; Zweite Funktion Kopieren von Rechner auf Server
;
  Func copyup()
     ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $source = $aSourceDest [0] [0]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source = $aSourceDest [1] [0]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source = $aSourceDest [2] [0]
    local $dest = $aSourceDest [3] [1]

;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
;
Global $jjjjup = "20" & StringTrimRight(GUICtrlRead($idEditProjektUp), 4)
Local $proup = GUICtrlRead($idEditProjektUp)

ConsoleWrite ('< $Projektup = ' & $Projektup & @CRLF)
ConsoleWrite ($source & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\Berechnungen" & @CRLF)
ConsoleWrite ($dest & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\" & @CRLF)

DirCopy (($source & $jjjjup & "\" & $proup & "\Berechnungen"), ($dest & $jjjjup & "\" & $proup & "\Berechnungen"), $FC_OVERWRITE)
Return
EndFunc

Alles anzeigen

**Musashi**

Zitat von kayes

selber gemerkt, dieser funktioniert:

Prima !

Der * bei \* war's !

Da ich eh gerade am Schreiben bin, hier 2 Punkte, die aber eher das Design betreffen (keine Syntaxfehler) :

1.

Ein Paradekandidat für Tippfehler ist die Auswertung von :

Global $jjjjdown = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)

Damit wird dann ja das Jahr vervollständigt -> 2019,

Du gehst davon aus, dass der Nutzer immer korrekt 6-stellige Eingaben macht, also z.B. 19D001.

Das wird in der Praxis nicht funktionieren - z.B. da auch andere Leute mit dem Tool arbeiten !

Schreibt ein Nutzer aus Versehen 19D0001 statt 19D001, dann wird daraus :

...\2019D\19D0001\Berechnungen

(und das wird passieren )

Hier sollte eine Prüfung 'rein. EDIT kayes :

Local $jjjjdown = "20" & StringLeft(GUICtrlRead($idEditProjektDown), 2)

wäre auf die Schnelle schon mal etwas besser (analog bei Up).

Zudem deklariert man innerhalb von Funktionen keine Globals, schreibe also Local.

2.

Du besetzt das EditFeld mit GUICtrlSetData($idEditProjektDown, "19") vor, um es später als Teil des Jahres, also 2019 zu verwenden (analog auch bei Up).

Schreibe statt :

GUICtrlSetData($idEditProjektDown, "19")

besser :

GUICtrlSetData($idEditProjektDown, StringRight(@YEAR, 2))

--> dann musst Du das Skript nicht jedes Jahr anpassen - zumindest nicht zu unseren Lebzeiten

Gruß Musashi

kayes

Vielen Dank Musashi,

die Anregungen sind eingefügt.

Gibt es noch die Möglichkeit auf eine einfache Art und Weise anzeigen zu lassen, ob kopiert wurde oder nicht? Oder die Anzahl der kopierten Dateien?

**Musashi**

Zitat von kayes

ob kopiert wurde

Das ist einfach ! DirCopy gibt Dir einen Wert zurück :

1 = Erfolg , 0 = Fehlgeschlagen (so etwas findet man auch in der Hilfe )

Anmerkung : Fehlgeschlagen kommt auch, wenn das Verzeichnis bereits existiert und Du ohne Overwrite kopierst !

Den Rückgabewert kannst Du z.B. so abfragen (in copydown einbauen) :

Code

Local $CopySuccess
$CopySuccess = DirCopy (($source & $jjjjdown & "\" & $prodown & "\Berechnungen"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen"), $FC_OVERWRITE)
ConsoleWrite('< DirCopy = ' & $CopySuccess  & @CRLF)
If Not $CopySuccess Then
    MsgBox(16, "Ergebnis von DirCopy : ", "Die Kopieraktion ist fehlgeschlagen ! ")
EndIf

(bei copyup analog)

Wieviele, und welche Dateien kopiert wurden, sagt DirCopy allerdings nicht.

Gruß Musashi

**autoiter**

Hallo kayes

Alternativ könnte man auch mit FileCopy zu arbeiten. dann könnte man anzeigen, an welchem File es vllt. hängt. Hier mal rudimentär umgesetzt:

Spoiler anzeigen

Code

_CopyFilesOverwrite($source & $jjjjup & "\" & $proup & "\Berechnungen", $dest & $jjjjup & "\" & $proup & "\Berechnungen\")

Func _CopyFilesOverwrite($sSource, $sDest)
    Local $aFiles = _FileListToArray(, "*", $FLTA_FILES)
    If Not IsArray Then Return SetError(1)
    Local $iRet = -1
    For $i = 1 To $aFiles[0]
        $iRet = FileCopy($sSource & "\" & $aFiles[$i], $sDest & $aFiles[$i], $FC_OVERWRITE)
        If $iRet <> 1 Then ConsoleWrite("Fehler beim Kopieren von " & $sSource & "\" & $aFiles[$i])
    Next
EndFunc   ;==>_CopyFilesOverwrite

Alles anzeigen

Für am besten geeignet, hielte ich, aber die UDF _FileCopyEx, um anzuzeigen, wo man steht usw.

Wenigstens solange man diese Infos nicht lieber selber bauen möchte.

kayes

Hallo Leute,

ich habe das Tool jetzt mal ein paar Tage im richtigen Umfeld genutzt und es gibt 2 Punkte, die ich noch verbessern möchte.

1. eine farbliche Kennzeichnung, welche Außendienstrechner gerade aktuell ist.

2. eine Rückmeldung nach dem Kopiervorgang. Wenn eine Anzahl der kopierten Files (oder wie in einer bat die Auflistung der kopierten Dateien) einfach umzusetzen ist, gerne. Ansonsten reicht eigentlich auch ein einfaches "Kopiervorgang abgeschlossen".

**Musashi**

Zitat von kayes

ich habe das Tool jetzt mal ein paar Tage im richtigen Umfeld genutzt und es gibt 2 Punkte, die ich noch verbessern möchte.

Könntest Du Dein aktuelles Skript zur Sicherheit bitte mal posten !

Es gab ja einige Verbesserungsvorschläge - da wäre es hilfreich zu sehen, was Du davon umgesetzt hast, und wie .

Gruß Musashi

kayes

So schaut es gerade aus:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=REORG.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt       : Kopiertool
; bearbeitet am : 19.12.2018
; ==============================================================================
; Danksagungen  :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @Musashi, @BugFix, @autoiter, @alpines, @Code-Jack  usw.
; ==============================================================================
; Changelog     :
; Setzen der Pfade für Quelle und Ziel
; 1. Versuch Kopierbefehl
; Variable $jjjj definiert und aus dem Kopierbefehl herausgenommen
; Wrapperanweisungen und Kommentarbereich hinzugefügt
; ==============================================================================
;  Variablendeklaration
;
Global $download
Global $upload
Global $rechner1
Global $rechner2
Global $rechner3
Global $source
Global $dest
Global $aSourceDest = [ ["\\PANASONIC\C\Daten\", "\\PANASONIC\C\Daten\"], _
                        ["\\abkadpc\c\Daten\", "\\abkadpc\cDaten\"], _
                        ["\\ARMOR-PC\C\Projekte\", "\\ARMOR-PC\C\Projekte\"], _
                        ["F:\Daten\Dokumente\", "F:\Daten\Dokumente\Aussendienst\"]]
Local $jjjj
;==============================================================================
; Beginn des Formulars:
;
$Form1_1 = GUICreate("Datenaustausch AD PCs - Server  (c) Kayes", 592, 284, 197, 145)
;
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektdown
Global $idEditProjektDown = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektDown, StringRight(@YEAR, 2))
GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")

;
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektup
Global $idEditProjektUp = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektUp, StringRight(@YEAR, 2))
GUICtrlSetFont($idEditProjektUp, 18, 400, 0, "MS Sans Serif")

;
; Auswahl des Aussendienstrechners
;
$rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Downloadbutton wird gesetzt
;
$download = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
; Uploadbutton wird gesetzt
;
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;==============================================================================
;
; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
;
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $download
         copydown()
      Case $upload
         copyup()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
 WEnd
;
 ; Erste Funktion Kopieren von Server auf Rechner $Projektdown
 ;
 Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $dest = $aSourceDest [0] [1]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest = $aSourceDest [1] [1]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest = $aSourceDest [2] [1]
     local $source = $aSourceDest [3] [0]

;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
;
Local $jjjjdown = "20" & StringLeft(GUICtrlRead($idEditProjektDown), 2)
Local $prodown = GUICtrlRead($idEditProjektDown)

;ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)
;ConsoleWrite ($source & $jjjjdown & "\" & $prodown & "\Berechnungen" & @CRLF)
;ConsoleWrite ($dest & $jjjjdown & "\" & $prodown & "\" & @CRLF)
Local $CopySuccess
$CopySuccess = DirCopy (($source & $jjjjdown & "\" & $prodown & "\Berechnungen"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen"), $FC_OVERWRITE)
ConsoleWrite('< DirCopy = ' & $CopySuccess  & @CRLF)
If Not $CopySuccess Then
    MsgBox(16, "Ergebnis von DirCopy : ", "Die Kopieraktion ist fehlgeschlagen ! ")
EndIf

;DirCopy (($source & $jjjjdown & "\" & $prodown & "\Berechnungen"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen"), $FC_OVERWRITE)
Return
 EndFunc
;
; Zweite Funktion Kopieren von Rechner auf Server
;
  Func copyup()
     ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $source = $aSourceDest [0] [0]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source = $aSourceDest [1] [0]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source = $aSourceDest [2] [0]
    local $dest = $aSourceDest [3] [1]

;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
;
Local $jjjjup = "20" & StringLeft(GUICtrlRead($idEditProjektUp), 2)
Local $proup = GUICtrlRead($idEditProjektUp)

;ConsoleWrite ('< $Projektup = ' & $Projektup & @CRLF)
;ConsoleWrite ($source & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\Berechnungen" & @CRLF)
;ConsoleWrite ($dest & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\" & @CRLF)

;DirCopy (($source & $jjjjup & "\" & $proup & "\Berechnungen"), ($dest & $jjjjup & "\" & $proup & "\Berechnungen"), $FC_OVERWRITE)
Local $CopySuccess
$CopySuccess = DirCopy (($source & $jjjjup & "\" & $proup & "\Berechnungen"), ($dest & $jjjjup & "\" & $proup & "\Berechnungen"), $FC_OVERWRITE)
ConsoleWrite('< DirCopy = ' & $CopySuccess  & @CRLF)
If Not $CopySuccess Then
    MsgBox(16, "", "Die Kopieraktion ist fehlgeschlagen ! ")
EndIf
Return
EndFunc

Alles anzeigen

**Musashi**

Zitat von kayes

1. eine farbliche Kennzeichnung, welche Außendienstrechner gerade aktuell ist.

2. eine Rückmeldung nach dem Kopiervorgang. Wenn eine Anzahl der kopierten Files (oder wie in einer bat die Auflistung der kopierten Dateien) einfach umzusetzen ist, gerne. Ansonsten reicht eigentlich auch ein einfaches "Kopiervorgang abgeschlossen".

Hier Deine Version erweitert um :

- der jeweils aktive Außendienstrechner (Radiobutton) wird farblich gekennzeichnet - ich hoffe, so meinst Du das .

Die Farben kannst Du in der neuen Funktion _SetRechnerColor() am Ende des Skriptes anpassen. Die GUI_CHECKED Prüfungen sind so, wie Du sie bereits im Skript verwendest und kennst.

- eine einfache MsgBox, wenn DirCopy erfolgreich war

(falls Du mehr möchtest, muss der Bereich umgestellt werden).

EDIT :

Schaue Dir, wie autoiter bereits vorgeschlagen hat, mal die UDF Filecopyex von Oscar an. Die ist wirklich super und wäre auch leicht einzubauen (quasi als Ersatz für DirCopy).

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=REORG.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.6
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt       : Kopiertool
; bearbeitet am : 08.01.2019
; ==============================================================================
; Danksagungen  :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @Musashi, @BugFix, @autoiter, @alpines, @Code-Jack  usw.
; ==============================================================================
; Changelog     :
; Setzen der Pfade für Quelle und Ziel
; 1. Versuch Kopierbefehl
; Variable $jjjj definiert und aus dem Kopierbefehl herausgenommen
; Wrapperanweisungen und Kommentarbereich hinzugefügt
; ==============================================================================
;  Variablendeklaration
;
Global $download
Global $upload
Global $rechner1
Global $rechner2
Global $rechner3
Global $source
Global $dest
Global $aSourceDest = [["\\PANASONIC\C\Daten\", "\\PANASONIC\C\Daten\"], _
        ["\\abkadpc\c\Daten\", "\\abkadpc\cDaten\"], _
        ["\\ARMOR-PC\C\Projekte\", "\\ARMOR-PC\C\Projekte\"], _
        ["F:\Daten\Dokumente\", "F:\Daten\Dokumente\Aussendienst\"]]
Local $jjjj
;==============================================================================
; Beginn des Formulars:
;
$Form1_1 = GUICreate("Datenaustausch AD PCs - Server  (c) Kayes", 592, 284, 197, 145)
;
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektdown
Global $idEditProjektDown = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData($idEditProjektDown, StringRight(@YEAR, 2))
GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")
;
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektup
Global $idEditProjektUp = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData($idEditProjektUp, StringRight(@YEAR, 2))
GUICtrlSetFont($idEditProjektUp, 18, 400, 0, "MS Sans Serif")
;
; Auswahl des Aussendienstrechners
;
$rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
;GUICtrlSetColor(-1, 0xFF0000)
$rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
_SetRechnerColor()

$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Downloadbutton wird gesetzt
;
$download = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
; Uploadbutton wird gesetzt
;
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

;==============================================================================
;
; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
;
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $download
            copydown()
        Case $upload
            copyup()
        Case $rechner1
            _SetRechnerColor()
        Case $rechner2
            _SetRechnerColor()
        Case $rechner3
            _SetRechnerColor()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

;
; Erste Funktion Kopieren von Server auf Rechner $Projektdown
;
Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($rechner1) = $GUI_CHECKED Then $dest = $aSourceDest[0][1]
    If GUICtrlRead($rechner2) = $GUI_CHECKED Then $dest = $aSourceDest[1][1]
    If GUICtrlRead($rechner3) = $GUI_CHECKED Then $dest = $aSourceDest[2][1]
    Local $source = $aSourceDest[3][0]
    ;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
    ;
    Local $jjjjdown = "20" & StringLeft(GUICtrlRead($idEditProjektDown), 2)
    Local $prodown = GUICtrlRead($idEditProjektDown)
    ;ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)
    ;ConsoleWrite ($source & $jjjjdown & "\" & $prodown & "\Berechnungen" & @CRLF)
    ;ConsoleWrite ($dest & $jjjjdown & "\" & $prodown & "\" & @CRLF)
    Local $CopySuccess
    $CopySuccess = DirCopy(($source & $jjjjdown & "\" & $prodown & "\Berechnungen"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen"), $FC_OVERWRITE)
    ConsoleWrite('< DirCopy = ' & $CopySuccess & @CRLF)
    If Not $CopySuccess Then
        MsgBox(16, "Ergebnis von DirCopy : ", "Die Kopieraktion ist fehlgeschlagen ! ")
    Else
        MsgBox(64, "Ergebnis von DirCopy : ", "Die Kopieraktion war erfolgreich ! ")
    EndIf
    ;DirCopy (($source & $jjjjdown & "\" & $prodown & "\Berechnungen"), ($dest & $jjjjdown & "\" & $prodown & "\Berechnungen"), $FC_OVERWRITE)
    Return
EndFunc   ;==>copydown
;
; Zweite Funktion Kopieren von Rechner auf Server
;
Func copyup()
    ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($rechner1) = $GUI_CHECKED Then $source = $aSourceDest[0][0]
    If GUICtrlRead($rechner2) = $GUI_CHECKED Then $source = $aSourceDest[1][0]
    If GUICtrlRead($rechner3) = $GUI_CHECKED Then $source = $aSourceDest[2][0]
    Local $dest = $aSourceDest[3][1]
    ;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
    ;
    Local $jjjjup = "20" & StringLeft(GUICtrlRead($idEditProjektUp), 2)
    Local $proup = GUICtrlRead($idEditProjektUp)
    ;ConsoleWrite ('< $Projektup = ' & $Projektup & @CRLF)
    ;ConsoleWrite ($source & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\Berechnungen" & @CRLF)
    ;ConsoleWrite ($dest & $jjjjup & "\" & GUICtrlRead($idEditProjektUp) & "\" & @CRLF)
    ;DirCopy (($source & $jjjjup & "\" & $proup & "\Berechnungen"), ($dest & $jjjjup & "\" & $proup & "\Berechnungen"), $FC_OVERWRITE)
    Local $CopySuccess
    $CopySuccess = DirCopy(($source & $jjjjup & "\" & $proup & "\Berechnungen"), ($dest & $jjjjup & "\" & $proup & "\Berechnungen"), $FC_OVERWRITE)
    ConsoleWrite('< DirCopy = ' & $CopySuccess & @CRLF)
    If Not $CopySuccess Then
        MsgBox(16, "Ergebnis von DirCopy : ", "Die Kopieraktion ist fehlgeschlagen ! ")
    Else
        MsgBox(64, "Ergebnis von DirCopy : ", "Die Kopieraktion war erfolgreich ! ")
    EndIf
    Return
EndFunc   ;==>copyup


; Farbe für aktiven Radiobutton des Rechners setzen :
Func _SetRechnerColor()
    If GUICtrlRead($rechner1) = $GUI_CHECKED Then
        GUICtrlSetColor($rechner1, $COLOR_GREEN)
    Else
        GUICtrlSetColor($rechner1, $COLOR_BLACK)
    EndIf

    If GUICtrlRead($rechner2) = $GUI_CHECKED Then
        GUICtrlSetColor($rechner2, $COLOR_GREEN)
    Else
        GUICtrlSetColor($rechner2, $COLOR_BLACK)
    EndIf

    If GUICtrlRead($rechner3) = $GUI_CHECKED Then
        GUICtrlSetColor($rechner3, $COLOR_GREEN)
    Else
        GUICtrlSetColor($rechner3, $COLOR_BLACK)
    EndIf
EndFunc   ;==>_SetRechnerColor

Alles anzeigen

Gruß Musashi

kayes

Hallo Musashi,

die Rückmeldung funktioniert, aber mit den Farben läuft noch etwas schief.

**Musashi**

Zitat von kayes

die Rückmeldung funktioniert, aber mit den Farben läuft noch etwas schief.

Was 'läuft denn schief'

Gruß Musashi

kayes

die Schrift ist und bleibt schwarz.

**Musashi**

Zitat von kayes

die Schrift ist und bleibt schwarz.

Bei mir sieht es wie folgt aus :

Kayesradio1.png

Der jeweils aktive Rechner (Radiobutton) wird (hier) Grün markiert ! Ist es nicht das was Du wolltest ?

Gruß Musashi

kayes

habe in eine neue Datei deinen Code eingefügt:

pasted-from-clipboard.png