Kopiertool

kayes

Hallo Freunde der Programmierkunst!

Ich bin auf der Suche nach einem kleinen Kopiertool.

Es soll folgendes können und so aussehen:

So ist das Bild, wenn Computer 1 angehakt ist.

Datenaustausch

O Laptop 1 O Laptop 2 O Laptop 3

(Icon DektopPC) (Icon Laptop)

*Eingabe* Source 4 -> Dest 1

Dest 4 <- Source 1 *Eingabe (entspricht Dest 1)*

Jetzt das Bild, wenn Computer 2 angehakt ist:

Datenaustausch

O Laptop 1 O Laptop 2 O Laptop 3

(Icon DektopPC) (Icon Laptop)

Source 4 -> Dest 2

Dest 4 <- Source 2 *(entspricht Dest 2)*

und bei Computer 3:

Datenaustausch

O Laptop 1 O Laptop 2 O Laptop 3

(Icon DektopPC) (Icon Laptop)

Source 4 -> Dest 3

Dest 4 <- Source 3 *(entspricht Dest 3)*

[Blockierte Grafik: https://picload.org/view/dcowwrcr/unbenannt.jpg.html]

Bei Beispiel 1:

Aussendienstler 1 muss Dateien auf seinen Aussendienstrechner übertragen. Laptop 1 ist angehakt.

Bei der Eingabe von z. Bsp. 17D005 soll ein kompletter Ordner Berechnungen aus dem Pfad F:\Dokumente\2017\17D005\ auf den Laptop 1 in \\Laptop1\Daten\17D005\ kopiert werden.

Abends kommt der Aussendienstler rein und muss seine Daten zurück übertragen.

Er schaut, ob Laptop 1 angehakt ist (eventl. farblich unterlegt?).

Dann gibt er 17D005 in Source1 ein. Nun wird der Ordner Berechnungen von \\Laptop1\Daten\17D005\ nach F:\Dokumente\Aussendienst\2017\17D005\ kopiert.

Das Programm ist auf 3 Aussendienstmitarbeiter und 3 Laptops ausgelegt.

Wäre jemand bereit, dies für mich umzusetzen?

Ich hatte vor1 1/2 Jahren schon einmal eine ähnliche Anfrage gestellt. Nun haben sich die Voraussetzungen etwas geändert.

Vielen Dank schon einmal!

EDIT BugFix: Ich habe mal etwas formatiert und Unmengen an Leerzeilen entfernt - sollte jetzt deutlicher lesbar sein.

@TS - Bitte im Post mit Leerzeilen sparsam umgehen, mehr mit Formatierung (Style, Font, Liste etc. arbeiten), das verbessert die Lesbarkeit

**Moombas**

-entfernt-

kayes

Hallo,

ich habe jetzt schon einmal die GUI,fehlt noch das eigentliche kopieren.

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $varsource1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\*"
Global $varsource2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\*"
Global $varsource3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\*"
Global $varsource4 = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\%jjjj%\%projekt%\Berechnungen\*"
Global $vardestin1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\"
Global $vardestin2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\"
Global $vardestin3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\"
Global $vardestin4 = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\%jjjj%\%projekt%\Berechnungen\"
$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
GUICtrlCreateEdit("", 352, 88, 180, 40, $ES_WANTRETURN)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$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")
$label = GUICtrlCreateLabel("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("=>", 256, 176, 28, 40)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Alles anzeigen

kayes

Hmm, keiner Lust mir etwas unter die Arme zu greifen??

Code-Jack

Hallo Kayes,

Ich schmeiße Dir einfach mal ein altes (und sicher verbesserungsfähiges) Script von mir vor die Füße, das damals unter Mithilfe mehrerer User dieses Forums entspanden ist.

Vermutlich enthält es genügend Anregungen, anhand derer Du Dein Problem selbst gelöst bekommst.

C

; Scriptname: PhotoRec-Butler
; Version: 1.01 vom 08.11.'16 (basierend auf Version 1.0 vom 26.07.'16)
; Autor: Stefan Denk (alias "Code-Jack", alias "Desi"), Fa. EDV-Dompteur
; Website: http://www.EDV-Dompteur.de
; Status: Freeware

; V E R W E N D U N G S Z W E C K :
; Dieses Script kommt zur Anwendung nach einer Datenrettung mit dem Programm "PhotoRec", aus dem Programmpaket "Testdisc",
; der ein Durchlauf des Scriptes "PhotoRec_Sorter" folgte.
; Im Anschluss an die Anwendung von PhotoRec_Sorter dÃ¼rfte man einen Ordner namens "JPG" vorfinden, gefÃ¼llt mit nichts als massenhaft JPG-Dateien.
; In meinem eigenen Fall enthielt dieser Ordner Ã¼ber 465000 Dateien, was den Windows-Explorer vÃ¶llig ausbremste. Es war kaum mÃ¶glich,
; auch nur den Ordnerinhalt anzeigen zu lassen; es waren einfach gar zu viele Dateien darin vorhanden.
; Die Aufgabe des hier vorliegenden Scriptes ist es, die im JPG-Ordner vorhandenen Bilder, nach Aufnahmedatum sortiert, in automatisch angelegte
; Unterordner zu verschieben, so dass im Anschluss fÃ¼r jeden Tag, an dem ein Bild (bzw. mehrere) aufgenommen wurde(n), ein eigener Unterordner existiert.
;
; B E N U T Z U N G:
; Das Script soll sich NEBEN dem Ordner mit dem Namen "JPG" befinden, wenn es gestartet wird (also NICHT dort hinein kopieren!).
; Dann einfach das Script starten und abwarten. Im Anschluss findet man eine Ordnerstruktur nach folgendem Schema vor:
; ...\JPG\15-08-23
; ...\JPG\15-09-18
; ...\JPG\16-01-29
; etc.
; In jedem dieser automatisch angelegten Unterordner befinden sich nur genau jene Bilder, die an dem Tag aufgenommen wurden, der dem Ordnernamen entspricht.
;
; D A N K S A G U N G:
; Der Autor dankt folgenden Usern des groÃŸartigen Forums http://www.autoit.de fÃ¼r ihre Tipps, bzw. Code-Schnippsel:
; Simucal - fÃ¼r die Funktion _FileGetProperty, auf der dieses Script aufbaut.
; Oscar - fÃ¼r Codeschnippsel und prÃ¤zise Hinweise.
; Xorianator - fÃ¼rs Mitdenken.


#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

Global $sQuellpfad = @ScriptDir & "\JPG\"
Global $hSearch
Global $sFileWithPath

; Das Handle der ersten Datei im Quellpfad ermitteln.
$hSearch = FileFindFirstFile($sQuellpfad & "*.*")

; ÃœberprÃ¼fen, ob obige Suche erfolgreich war.
If $hSearch = -1 Then
  MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
  Return False
EndIf

; Assign a Local variable the empty string which will contain the files names found.
Global $sFileName = "", $iResult = 0

While 1
  $sFileName = FileFindNextFile($hSearch)    ; Der Name der jeweils nÃ¤chsten Datei.
  If @error Then ExitLoop                    ; Wenn keine weitere Datei vorhanden, dann Script beenden.
  ConsoleWrite($sFileName & @CRLF)           ; Dient nur der Kontrolle, ob das Script auch wirklich tÃ¤tig ist und nicht etw "hÃ¤ngt"  :-)

  $sFileWithPath = $sQuellpfad & $sFileName  ; Der volle Pfad der Datei, samt deren Dateiname.
  $sAufnahmezeitpunkt = _FileGetProperty($sFileWithPath, "Bild aufgenommen am")  ;Das Datum, an dem das Bild tatsÃ¤chlich aufgenommen wurde.
  ;ConsoleWrite($sAufnahmezeitpunkt & @CRLF) ; Dient nur zum Debuggen, sollte auskommentiert werden.

  $sJahr = StringMid($sAufnahmezeitpunkt, 7, 4)
  $sMonat = StringMid($sAufnahmezeitpunkt, 4, 2)
  $sTag = StringMid($sAufnahmezeitpunkt, 1, 2)

  $sZielpfad = $sQuellpfad & $sJahr & "-" & $sMonat & "-" & $sTag & "\"  ; Hierhin wird die Bilddatei gleich verschoben.
  ;ConsoleWrite($sZielpfad & @CRLF)          ; Dient nur zum Debuggen, sollte auskommentiert werden.

  ; Quelldatei in den neuen Ordner verschieben (Ordner wird automatisch erzeugt, falls noch nicht vorhanden).
  ;FileMove($sFileWithPath, $sZielpfad & $sFileName, $FC_OVERWRITE + $FC_CREATEPATH)
  FileMove($sFileWithPath, $sZielpfad & $sFileName, $FC_CREATEPATH)

WEnd

; Close the search handle.
FileClose($hSearch)


;===============================================================================
; Function Name.....: _FileGetProperty
; Description.......: Returns a property or all properties for a file.
; Version...........: 1.0.2
; Change Date.......: 05-16-2012
; AutoIt Version....: 3.2.12.1+
; Parameter(s)......: $S_PATH - String containing the file path to return the property from.
;                     $S_PROPERTY - [optional] String containing the name of the property to return. (default = "")
; Requirements(s)...: None
; Return Value(s)...: Success: Returns a string containing the property value.
;                       If $S_PROPERTY is empty, an two-dimensional array is returned:
;                         $av_array[0][0] = Number of properties.
;                         $av_array[1][0] = 1st property name.
;                         $as_array[1][1] = 1st property value.
;                         $av_array[n][0] = nth property name.
;                         $as_array[n][1] = nth property value.
;                     Failure: Returns 0 and sets @error to:
;                       1 = The folder $S_PATH does not exist.
;                       2 = The property $S_PROPERTY does not exist or the array could not be created.
;                       3 = Unable to create the "Shell.Application" object $objShell.
; Author(s).........: - Simucal <Simucal@gmail.com>
;                     - Modified by: Sean Hart <autoit@hartmail.ca>
;                     - Modified by: teh_hahn <sPiTsHiT@gmx.de>
;                     - Modified by: BrewManNH
; URL...............: http://www.autoitscript.com/forum/topic/...property/page__view__findpost_
; Note(s)...........: Modified the script that teh_hahn posted at the above link to include the properties that
;                     Vista and Win 7 include that Windows XP doesn't. Also removed the ReDims for the $av_ret array and
;                     replaced it with a single ReDim after it has found all the properties, this should speed things up.
;===============================================================================
Func _FileGetProperty(Const $S_PATH, Const $S_PROPERTY = "")
    Local Const $objShell = ObjCreate("Shell.Application")
    If @error Then Return SetError(3, 0, 0)
    Local $iPropertyCount = 300 ; arbitrary number used, Windows 7 only returns 289 properties, Windows XP only returns 38 (future proofing)
    If StringLeft($S_PATH, 1) = '"' Then StringTrimLeft($S_PATH, 1) ; deletes any quotes around the path\filename, otherwise will cause errors
    If StringRight($S_PATH, 1) = '"' Then StringTrimRight($S_PATH, 1) ; deletes any quotes around the path\filename, otherwise will cause errors
    If Not FileExists($S_PATH) Then Return SetError(1, 0, 0)
    Local Const $S_FILE = StringTrimLeft($S_PATH, StringInStr($S_PATH, "\", 0, -1))
    Local Const $S_DIR = StringTrimRight($S_PATH, StringLen($S_FILE) + 1)
    Local Const $objFolder = $objShell.NameSpace($S_DIR)
    Local Const $objFolderItem = $objFolder.Parsename($S_FILE)
    If $S_PROPERTY Then
        For $I = 0 To $iPropertyCount
            If $objFolder.GetDetailsOf($objFolder.Items, $I) = $S_PROPERTY Then Return $objFolder.GetDetailsOf($objFolderItem, $I)
        Next
        Return SetError(2, 0, 0)
    EndIf
    Local $av_ret[300][2] = [[1]]
    For $I = 1 To $iPropertyCount + 1
        If $objFolder.GetDetailsOf($objFolder.Items, $I) Then
            $av_ret[$I][0] = $objFolder.GetDetailsOf($objFolder.Items, $I - 1)
            $av_ret[$I][1] = $objFolder.GetDetailsOf($objFolderItem, $I - 1)
            $av_ret[0][0] += 1
        EndIf
    Next
    ReDim $av_ret[$av_ret[0][0] + 1][2]
    If Not $av_ret[1][0] Then Return SetError(2, 0, 0)
    Return $av_ret
EndFunc   ;==>_FileGetProperty

Alles anzeigen

kayes

Mal einen Schritt nach dem nächsten:

Ich beschäftige mich also erst einmal mit If Then.

Die Abfrage der Radios

Code

GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$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")

Das gewählte Radio erhält den Wert 1, oder irre ich mich?

Dann wäre:

Code

   If GuiCtrlRead($Rechner1) = 1 Then $source = varsource1
   ElseIf GuiCtrlRead($Rechner1) = 1 Then $destin = $vardestin1
   ElseIf GuiCtrlRead($Rechner2) = 1 Then $source = $varsource2
   ElseIf GuiCtrlRead($Rechner2) = 1 Then $destin = $vardestin2
   ElseIf GuiCtrlRead($Rechner3) = 1 Then $source = $varsource3
   ElseIf GuiCtrlRead($Rechner3) = 1 Then $destin = $vardestin3
   EndIf

Ziel ist es, einer lokalen Variablen den Wert der Globalen zu geben.

Dies ist also der Auswahlteil. Wenn ich den komplett habe werde ich mich mit dem Kopierteil beschäftigen.

Hier das ganze Script:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $varsource1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\*"
Global $varsource2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\*"
Global $varsource3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\*"
Global $varsource4 = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\%jjjj%\%projekt%\Berechnungen\*"
Global $vardestin1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\"
Global $vardestin2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\"
Global $vardestin3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\"
Global $vardestin4 = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\%jjjj%\%projekt%\Berechnungen\"
Global $Rechner1
Global $Rechner2
Global $Rechner3
Global $Projekt
Global $Projekt2
$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
Global $Projekt1 = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
Global $Projekt2 = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$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")
$copy1 = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
$copy2 = GUICtrlCreateButton("=>", 256, 176, 28, 40)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


; Erste If Then Abfrage

   If GuiCtrlRead($Rechner1) = 1 Then $source = varsource1
   ElseIf GuiCtrlRead($Rechner1) = 1 Then $destin = $vardestin1
   ElseIf GuiCtrlRead($Rechner2) = 1 Then $source = $varsource2
   ElseIf GuiCtrlRead($Rechner2) = 1 Then $destin = $vardestin2
   ElseIf GuiCtrlRead($Rechner3) = 1 Then $source = $varsource3
   ElseIf GuiCtrlRead($Rechner3) = 1 Then $destin = $vardestin3
   EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Alles anzeigen

Und so soll die GUI aussehen:

[Blockierte Grafik: https://picload.org/view/dccgaodo/kopiertool.jpg.html]

kayes

So ist der momentane Stand.

Ob es funktioniert wenn ich den richtigen Kopierbefehl habe ist wieder was anderes

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $varsource1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\*"
Global $varsource2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\*"
Global $varsource3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\*"
Global $serversource = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\%jjjj%\%projekt%\Berechnungen\*"
Global $vardestin1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\"
Global $vardestin2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\"
Global $vardestin3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\"
Global $serverdestin = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\%jjjj%\%projekt%\Berechnungen\"
Global $rechner1
Global $rechner2
Global $rechner3
Global $download
Global $upload
; Beginn des Formulars
$Form1_1 = GUICreate("Datenaustausch   von kayes 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
$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
$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=$vardestin1
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest=$vardestin2
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest=$vardestin3
        Return

;Hier muss jetzt der Kopierbefehl stehen mit der $serversource 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=$varsource1
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source=$varsource2
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source=$varsource3
    Return

;Hier muss jetzt der Kopierbefehl stehen mit der $serverdestin und der $source

 EndFunc

Alles anzeigen

**BugFix**

So wird es nicht funktionieren, dein If-Then-Else-Statement ist so nicht möglich.

Es wäre hier auch besser Arrays zu verwenden.

Ungetestet:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;~ Global $varsource1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\*"
;~ Global $varsource2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\*"
;~ Global $varsource3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\*"
;~ Global $varsource4 = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\%jjjj%\%projekt%\Berechnungen\*"
;~ Global $vardestin1 = "F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\"
;~ Global $vardestin2 = "F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\"
;~ Global $vardestin3 = "F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\"
;~ Global $vardestin4 = "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\%jjjj%\%projekt%\Berechnungen\"
Global $aSourceDest[4][2] = [
["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\"]]
Global $source, $destin

;~ Global $Rechner1, $Rechner2, $Rechner3
Global $aPCselect[3]

Global $Projekt1, $Projekt2

$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
Global $Projekt1 = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
Global $Projekt2 = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")

$aPCselect[0] = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$aPCselect[1] = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$aPCselect[2] = 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")
$copy1 = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
$copy2 = GUICtrlCreateButton("=>", 256, 176, 28, 40)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


; Erste If Then Abfrage

;~    If GuiCtrlRead($Rechner1) = 1 Then $source = varsource1
;~    ElseIf GuiCtrlRead($Rechner1) = 1 Then $destin = $vardestin1
;~    ElseIf GuiCtrlRead($Rechner2) = 1 Then $source = $varsource2
;~    ElseIf GuiCtrlRead($Rechner2) = 1 Then $destin = $vardestin2
;~    ElseIf GuiCtrlRead($Rechner3) = 1 Then $source = $varsource3
;~    ElseIf GuiCtrlRead($Rechner3) = 1 Then $destin = $vardestin3
;~    EndIf
   
For $i = 0 To UBound($aPCselect) -1
    If BitAND(GUICtrlRead($aPCselect[$i]), $GUI_CHECKED) Then
        $source = $aSourceDest[$i][0]
        $destin = $aSourceDest[$i][1]
        ExitLoop
    EndIf
Next


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Alles anzeigen

kayes

Danke BugFix,

aber so läuft es auch nicht durch.

Code

   Global $aSourceDest[4][2] = [
    ["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\"]]

Darin steckt noch eine fehlerhafte Dimensonierung.

**Musashi**

Zitat von kayes

Darin steckt noch eine fehlerhafte Dimensionierung.

Das Problem ist die Zuweisung der Elemente zum Array $aSourceDest .

Kopierst Du den Code von BugFix in deinen SciTE Editor, dann werden diese Elemente als eigenständige Zeilen behandelt (ggf. Folge der z.Zt. noch fehlenden AutoIt-Syntax im Forum ).

Du kannst Sie zu einer Zeile zusammenziehen, oder mit _ (Unterstrich) die Zeilen verbinden - das wäre auch etwas übersichtlicher (siehe Teilcode).

Binde zusätzlich an den Anfang des Skriptes <Array.au3> ein, dann kannst Du Dir das Array anzeigen lassen. Teilcode :

Code

#include <Array.au3>

Global $aSourceDest[4][2] = [ ["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\"]]

; Nur zur Anzeige :
_ArrayDisplay($aSourceDest, "Verzeichnisse", Default, Default, Default,"Sourcepath|Destinationpath")

Gruß Musashi

kayes

Es kommt immer noch eine Fehlermeldung Musashi,

Zitat

==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

Global $aSourceDest[4][2] = [ ["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\"]]

Global $aSourceDest[4][2] = [ ["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\*"], [^ ERROR

liegt es an der [4][2] ?

**Musashi**

Probiere bitte mal mein Beispiel aus Beitrag #10 aus. Beim ArrayDisplay werden zwar nur die Pfade angezeigt, aber es ist in sich lauffähig. Was kommt dabei heraus ?

Gruß Musashi

**alpines**

Du kannst die Dimensionsgrößen seit 3.3.14.2 (?) weglassen.

Das Skript dürfte nicht laufen, da dein SourceDest größer als 4 in den Zeilen ist, deshalb der Fehler.

kayes

Es kommt dabei eine Tabelle raus, in der alles Richtig dargestellt ist.

Ok, ein Array generiert mir quasi eine Tabelle mit Variableninhalten.

Wie picke ich mir jetzt einen Wert raus?

**Musashi**

Zitat von alpines

Das Skript dürfte nicht laufen, da dein SourceDest größer als 4 in den Zeilen ist, deshalb der Fehler.

Stimmt, ich dachte er hätte mein Beispiel genommen !

kayes :

Bei der Zuweisung hast Du 5 Elemente genommen, davon teilweise nur den ersten Teil.

Zitat von kayes

Wie picke ich mir jetzt einen Wert raus?

Lasse bitte mal folgendes Skript laufen :

Code

#include <Array.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\"]]


; Nur zur Anzeige :
_ArrayDisplay($aSourceDest, "Verzeichnisse", Default, Default, Default,"Sourcepath|Destinationpath")

ConsoleWrite('+ ------------ Pfade ------------------------ ' & @CRLF)
ConsoleWrite('+ ' & StringFormat ('Source1 = %s   Destination1 = %s', $aSourceDest[0][0], $aSourceDest[0][1]) & @CRLF)
ConsoleWrite('+ ' & StringFormat ('Source2 = %s   Destination2 = %s', $aSourceDest[1][0], $aSourceDest[1][1]) & @CRLF)
ConsoleWrite('+ ' & StringFormat ('Source3 = %s   Destination3 = %s', $aSourceDest[2][0], $aSourceDest[2][1]) & @CRLF)
ConsoleWrite('+ ' & StringFormat ('Source4 = %s   Destination4 = %s', $aSourceDest[3][0], $aSourceDest[3][1]) & @CRLF)
ConsoleWrite('+ ' & StringFormat ('Source5 = %s   Destination5 = %s', $aSourceDest[4][0], $aSourceDest[4][1]) & @CRLF)

Alles anzeigen

Gruß Musashi

**Musashi**

Ach ja, die Dimension des Arrays kannst Du Dir wie folgt anzeigen lassen :

Code

ConsoleWrite('< Anzahl Zeilen      = ' & UBound($aSourceDest, $UBOUND_ROWS) & @CRLF)
ConsoleWrite('< Anzahl Spalten     = ' & UBound($aSourceDest, $UBOUND_COLUMNS) & @CRLF)
ConsoleWrite('< Anzahl Dimensionen = ' & UBound($aSourceDest, $UBOUND_DIMENSIONS) & @CRLF)

Ich denke Dein Fehler ist dadurch entstanden, dass Du bei einer Zuweisung 2 Elemente erzeugt hast.

Das kann man bei Deinen Pfadkonstrukten schnell übersehen, daher mache die Zuweisung doch lieber, wie in meinem Beispiel beschrieben, mit Unterstrich - nicht als Einzeiler .

Gruß Musashi

kayes

nein, die Werte werden mir richtig angezeigt.

Row 4 Sourcepath stimmt nicht, das muss Row 3 Destinationpath sein, also:

Code

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\"]]

kayes

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

Alles anzeigen

**Musashi**

Zitat von kayes

Row 4 Sourcepath stimmt nicht, das muss Row 3 Destinationpath sein, also:

Genau das habe ich Dir doch gesagt :

Zitat von Musashi

Ich denke Dein Fehler ist dadurch entstanden, dass Du bei einer Zuweisung 2 Elemente erzeugt hast.

Das kann man bei Deinen Pfadkonstrukten schnell übersehen, daher mache die Zuweisung doch lieber, wie in meinem Beispiel beschrieben, mit Unterstrich - nicht als Einzeiler

Die Array-Zuweisung aus der Fehlermeldung in Deinem Beitrag #11 ergibt :

Code

+ ------------ Pfade ------------------------ 
+ Source1 = F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\*   Destination1 = F:\TESTUMGEBUNG\RECHNER1\Daten\%jjjj%\%projekt%\
+ Source2 = F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\*   Destination2 = F:\TESTUMGEBUNG\RECHNER2\Daten\%jjjj%\%projekt%\
+ Source3 = F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\*   Destination3 = F:\TESTUMGEBUNG\RECHNER3\Daten\%jjjj%\%projekt%\
+ Source4 = F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\%jjjj%\%projekt%\Berechnungen\*   Destination4 = 
+ Source5 = F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\%jjjj%\%projekt%\Berechnungen\   Destination5 = 

< Anzahl Zeilen      = 5
< Anzahl Spalten     = 2
< Anzahl Dimensionen = 2

In Beitrag #17 hast Du das jetzt richtig gemacht.

Gruß Musashi

**Musashi**

Zitat von kayes

Dann müsste es in meinem Script jetzt so aussehen.

Nein !

Du hast wieder Fehler bei der Klammersetzung in der Zuweisung, und damit 5 Elemente :

Code

< Anzahl Zeilen      = 5
< Anzahl Spalten     = 2
< Anzahl Dimensionen = 2

Nehme doch bitte die Variante, bei der Du die Zuweisung mehrzeilig mit _ (Unterstrich) verbindest, das ist wirklich übersichtlicher

Code

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\"]]

Gruß Musashi