Dann müsste es in meinem Script jetzt so aussehen.
Was fehlt dürften noch die beiden Kopierbefehle an sich sein:
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $aSourceDest = [ ["F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\*", "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\"],["F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\*", "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\"],["F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\*", "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\"],["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\%jjjj%\%projekt%\Berechnungen\*"],["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\%jjjj%\%projekt%\Berechnungen\"]
; Beginn des Formulars
$Form1_1 = GUICreate("Datenaustausch von kayes & Musashi erstellt im Dezember 2018", 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
GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
Global $Projektdown = GUICtrlSetData(-1, "19")
GUICtrlSetFont(-1, 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
GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
Global $Projektup = GUICtrlSetData(-1, "19")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
; Auswahl des Aussendienstrechners
Global $rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
Global $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
$down1oad = 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
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]
Return
$source = $aSourceDest [3] [0]
;Hier muss jetzt der Kopierbefehl stehen mit der $SourceDest [3] [0] und der $dest
;Es fehlt noch die Zusammensetzung des Pfades
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]
Return
$dest = $aSourceDest [3] [1]
;Hier muss jetzt der Kopierbefehl stehen mit der $aSourceDest [3] [1] und der $source
EndFunc
