Hallo habe folgende Frage:
Ich habe im Forum bereits recht brauchbare Ansätze bezüglich meines Anliegens gefunden. Bin auch schon fast am Ende mit meiner Arbeit, aber stehe noch vor einem Problem. Und zwar verstehe ich den Sinn von "FileSelectFolder" nicht so recht. Wenn ich im Schript $Button_R anwähle soll eine Sammlung der hinterlegten Datenpfade entstehen. Als Beispiel habe ich C:\Users\%username%\Desktop angegeben. Das Ziel ist H:\Backups! Funktioniert alles wie es soll. Aber wie kann ich mehrere unterschiedliche Pfade in mein Script implementieren? Ich will keines Falls, dass die User die zu sichernden Daten selbst auswählen, dass muss unbedingt im Hintergrund statisch definiert sein! Vielleicht habt Ihr ganz andere Lösungsansätze und ich dreh mich hier nur im Kreis
!!!!
Danke und Schöne Grüße Marvin
; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
; GUI Erstellen
GuiCreate("Datensicherung", 410, 250, -1, -1, "", $WS_EX_TOOLWINDOW )
GUISetIcon("mini_icon.exe", 0)
; Logo Erstellen
GuiCtrlCreatePic("Logo.jpg",10,20, 181,147)
GuiCtrlCreateLabel("Sample pic", 75, 1, 53, 15)
GuiCtrlSetColor(-1,0xffffff)
;Computernamen Ausgeben
GUICtrlCreateLabel("Ihr Computername lautet:", 195, 20)
$font="Times New Roman"
GuiCtrlCreateLabel("" & @ComputerName & "" , 195, 35)
GUICtrlSetFont (-1,8, -1, -1, $font)
;Buttons erstellen
Opt("GUICoordMode",1)
$Button_D= GUICtrlCreateButton("Datensammlung",195, 50, 100, 20)
$Button_R=GUICtrlCreateButton("Starten", 195, 140, 100, 30)
$Button_C=GuiCtrlCreateButton("Beenden", 295, 140, 100, 30)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_D
$select=FileSelectFolder("Ordner Suchen", "", 2, 100, 100)
Run($select)
Dircreate("H:\Backups\"& @ComputerName&"")
$Quelle =("C:\Users\%username%\Desktop")
$Ziel =("H:\Backups\"& @ComputerName&"")
$Logfile =("H:\Backups\"& @ComputerName&"")
$font="Times New Roman"
GUICtrlCreateLabel("Ordner:", 195, 75)
GUICtrlCreateLabel("" & $Quelle & "", 195, 90)
GUICtrlSetFont (-1,8, -1, -1, $font)
Case $msg = $Button_C
Exit
Case $msg = $Button_R
$font="Times New Roman Kursiv"
GUICtrlCreateLabel("Ihre Sicherung wurde gestartet." & @CRLF & "Bitte warten sie auf die Rückmeldung der Sicherung, bevor Sie beenden.", 10, 170)
GUICtrlSetFont (-1,9, -1, -1, $font)
$rob = RunWait(@ComSpec & " /c "& "robocopy" & $Quelle & " " & $Ziel & " /COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V", "" ,@SW_HIDE)
If $rob = 1 Then
MsgBox(64, "Erfolgreich!", "Ihre Sicherung wurde erfolgreich durchgeführt, klicken Sie auf 'OK' um dieses Fenster zu schliessen.")
EndIf
If $rob = 0 Then
MsgBox(16, "Fehlgeschlagen", "Ihre Sicherung ist fehlgeschlagen, bitte überprüfen Sie, ob Sie mit dem Netzwerk verbunden sind!.")
EndIf
EndSelect
Wend
Alles anzeigen