Hallo,
ich habe folgendes problem, ich möchte auf mehreren Rechnen zum Test ein Script laufen lassen, was nur zwei Dateien Kopiert.
Rechner 1 könnte in Deutsch oder Englisch sein, und da fängt mein Problem an.
Es müsste geprüft werden ob eine Datei im anderen Ordner bereits vorhanden ist, wenn ja soll die Datei im Programpfad C:\Programme\ kopiert werden, wenn nicht soll die Datei im Ordner C:\Program Files\ kopiert werden da sich dann um ein englisches Windows handelt.
Sorry ich bin auch nur anfänger aber ich glaube das ich einen ansatz für eine lösung habe, aber es funktioniert nicht.
Danke für eure Hilfe
QuellCode:
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
Local $Radio_1, $Radio_2, $Radio_3, $Radio_4, $Kopieren, $msg
GUICreate("INI Kopieren ver1.0")
GUICtrlCreateGroup("INI Sicherung Kopieren", 10, 10, 350, 380)
$Radio_1 = GUICtrlCreateRadio("Rechner 1", 20, 30)
$Radio_2 = GUICtrlCreateRadio("Rechner 2", 20, 70)
$Radio_3 = GUICtrlCreateRadio("Rechner 3", 20, 100)
$Radio_4 = GUICtrlCreateRadio("Rechner 4", 20, 150)
$Kopieren = GUICtrlCreateButton("Kopieren", 20, 360)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Kopieren
If BitAND(GUICtrlRead($Radio_1), $GUI_CHECKED) = $GUI_CHECKED Then
FileCopy ("C:\TMP\Rechner1\Inst-GR.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner1\bild1.bmp", "C:\Programme\Prog1\Picture\",1)
FileCopy ("C:\TMP\Rechner1\Inst-UK.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner1\bild1.bmp", "C:\Program Files\Prog1\Picture\",1)
msgbox(1,"Rechner 1","Dateien wurden kopiert")
EndIf
If BitAND(GUICtrlRead($Radio_2), $GUI_CHECKED) = $GUI_CHECKED Then
FileCopy ("C:\TMP\Rechner2\Inst-GR.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner2\bild1.bmp", "C:\Programme\Prog1\Picture\",1)
FileCopy ("C:\TMP\Rechner2\Inst-UK.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner2\bild1.bmp", "C:\Program Files\Prog1\Picture\",1)
msgbox(1,"Rechner 1","Dateien wurden kopiert")
EndIf
If BitAND(GUICtrlRead($Radio_3), $GUI_CHECKED) = $GUI_CHECKED Then
FileCopy ("C:\TMP\Rechner3\Inst-GR.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner3\bild1.bmp", "C:\Programme\Prog1\Picture\",1)
FileCopy ("C:\TMP\Rechner3\Inst-UK.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner3\bild1.bmp", "C:\Program Files\Prog1\Picture\",1)
msgbox(1,"Rechner 1","Dateien wurden kopiert")
EndIf
If BitAND(GUICtrlRead($Radio_3), $GUI_CHECKED) = $GUI_CHECKED Then
FileCopy ("C:\TMP\Rechner4\Inst-GR.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner4\bild1.bmp", "C:\Programme\Prog1\Picture\",1)
FileCopy ("C:\TMP\Rechner4\Inst-UK.ini", "C:\SOFT\Program\Inst.ini",1)
FileCopy ("C:\TMP\Rechner4\bild1.bmp", "C:\Program Files\Prog1\Picture\",1)
msgbox(1,"Rechner 1","Dateien wurden kopiert")
EndIf
EndSwitch
WEnd
EndFunc