Backup mittels robocopy und autoit ?

  • 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

  • Servous also der OpenDialoge ist dafür da um einen Ordner auszuwählen d.h. du gehst in dem Fenster auf den Ordner den du haben möchtest makierst ihn und drückst OK die Funktion gibt dir dann den Pfad des ausgewählten Ordners zurück, so wie du es aber gelöst hast ist es nun nur möglich einen Ordner zu wählen .. bei erneutem drückten würde der Pfad überschrieben werden..

    Spoiler anzeigen
    [autoit]


    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ; GUI Erstellen
    $hGUI = GuiCreate("Datensicherung", 410, 250, -1, -1, "", $WS_EX_TOOLWINDOW )
    GUISetIcon("mini_icon.exe", 0)

    [/autoit] [autoit][/autoit] [autoit]

    ; Logo Erstellen
    GuiCtrlCreatePic("Logo.jpg",10,20, 181,147)
    GuiCtrlCreateLabel("Sample pic", 75, 1, 53, 15)
    GuiCtrlSetColor(-1,0xffffff)

    [/autoit] [autoit][/autoit] [autoit]

    ;Computernamen Ausgeben
    GUICtrlCreateLabel("Ihr Computername lautet:", 195, 20)
    $font="Times New Roman"
    GuiCtrlCreateLabel("" & @ComputerName & "" , 195, 35)
    GUICtrlSetFont (-1,8, -1, -1, $font)

    [/autoit] [autoit][/autoit] [autoit]

    ;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)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState ()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button_D
    $select=FileSelectFolder("Ordner Suchen",@ComputerName, 2, @UserProfileDir,$hGUI)
    If $select <> '' Then MsgBox(2,"Ordner wurde ausgewählt",$select)
    ;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)

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit]

    ich würde es zb mit einer Editbox lösen , und einem Button (Pfad Hinzufügen) , beim Klick geht ein OpenDialoge auf und der Pfad wird dannach in die EditBox geschrieben so sieht man auch immer alles :)


    Edit: hab dir mal eine kleine Anregung geschrieben :)

    Spoiler anzeigen
    [autoit]


    #include <APIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiListBox.au3>
    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate("Form1", 615, 245, 192, 124)
    $hListBox = _GUICtrlListBox_Create($hGUI, "", 24, 16, 569, 169)
    $btnStart = GUICtrlCreateButton("Start", 24, 208, 129, 17, $WS_GROUP)
    $btnADDFolder = GUICtrlCreateButton("Select New Folder", 176, 208, 129, 17, $WS_GROUP)
    $btnDELFolder = GUICtrlCreateButton("Delete Folder", 320, 208, 129, 17, $WS_GROUP)
    $btnExit = GUICtrlCreateButton("Exit", 464, 208, 129, 17, $WS_GROUP)
    $Group1 = GUICtrlCreateGroup("", 8, 192, 601, 49)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 8, 0, 601, 193)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $btnExit
    Exit
    Case $btnADDFolder
    _FolderAdd()
    Case $btnDELFolder
    _FolderRemove()
    Case $btnStart
    _StartCopy()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _StartCopy()
    ; hier jetzt die Einträge aus der ListBox auslesen und eine Kopierfunktion bauen :)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _FolderRemove()
    Local $iIndex = _GUICtrlListBox_GetCurSel($hListBox)
    Local $iIndexText = _GUICtrlListBox_GetText($hListBox, $iIndex)
    _GUICtrlListBox_DeleteString($hListBox, $iIndex)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _FolderAdd()
    Local $newFolder = FileSelectFolder("Bitte Ordner auswählen", @ComputerName, 1, @ProgramFilesDir, $hGUI)
    If _GUICtrlListBox_GetCount($hListBox) < 10 Then ;Maximal 10 einträge
    If $newFolder <> '' Then
    _GUICtrlListBox_AddString($hListBox,$newFolder)
    EndIf
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    Gruß Marvin

    Einmal editiert, zuletzt von Protex (20. Januar 2012 um 16:00)

  • Möglich wäre es, z.b Alle Pfade, die du sicher, willst in einer IniDatei zu speichern (anderes format ginge auch, aber für Ini-Dateien gibt es fertige Funktionen)

    Code
    [Pfade]
    Pfad1 = C:\Users\%username%\Desktop
    Pfad2 = C:\test
    Pfad3 = C:\test2
    PfadX = .....

    Das ganze dann mit

    [autoit]

    IniReadSection ( "filename", "section" )

    [/autoit]


    auslesen und in ner Schleife durchlaufen lassen

    [autoit]

    $avarray = IniReadSection("Beispielini.ini", "Pfade")
    For $i = 1 To $avarray[0][0]
    $rob = RunWait(@ComSpec & " /c "& "robocopy" & $avarray[$i][1] & " " & $Ziel & " /COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V", "" ,@SW_HIDE)
    Next
    If $rob = 1 Then

    [/autoit]
  • Morgen!

    Zunächst einmal danke für die äußerst konstruktiven Antworten. Ich habe genau nach solchen Antworten gesucht! Ich finde die erste Lösung sehr gut und habe es gleich mal probiert - funkt zu 100%. Allerdings ist Lösung 2 die für mich passendere - die konnte ich aber noch nicht umsetzten. Und darum benötige ich nochmal einen kurzen Denkanstoß für mein furchtbar übermüdetes Gehirn ;)

    Grunsätzlich möchte ich nur die zu sichernden Pfade aus der ini auslesen und mittels Robocopy in das Zielverzeichniss kopieren!

    Habe im Stammverzeichnis, wo mein *.au3 Script steht, eine Sichpfad.ini erstellt. Inhalt schaut so aus:

    [Pfade]
    Pfad1 = C:\Users\%username%\Desktop\Kopierordner

    Nun mein AutiIT Script. Ich denke ab der Funktion $ButtonR, steht irgendein Müll drinnen, den ich einfach nicht verstehe. Darum brauch ich Euch!

    Schon jetzt besten Dank ..... MARVIN!

    [autoit]


    ; Script Start - Add your code below here

    [/autoit][autoit][/autoit][autoit]

    #include <GUIConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    ; GUI Erstellen
    $hGUI = GuiCreate("Datensicherung", 410, 250, -1, -1, "", $WS_EX_TOOLWINDOW )
    GUISetIcon("mini_icon.exe", 0)

    [/autoit][autoit][/autoit][autoit]

    ; Logo Erstellen
    GuiCtrlCreatePic("Logo.jpg",10,20, 181,147)
    GuiCtrlCreateLabel("Sample pic", 75, 1, 53, 15)
    GuiCtrlSetColor(-1,0xffffff)

    [/autoit][autoit][/autoit][autoit]

    ;Computernamen Ausgeben
    GUICtrlCreateLabel("Ihr Computername lautet:", 195, 20)
    $font="Times New Roman"
    GuiCtrlCreateLabel("" & @ComputerName & "" , 195, 35)
    GUICtrlSetFont (-1,8, -1, -1, $font)

    [/autoit][autoit][/autoit][autoit]

    ;Buttons erstellen
    Opt("GUICoordMode",1)
    $Button_D= GUICtrlCreateButton("INFO",195, 50, 110, 30)
    $Button_R=GUICtrlCreateButton("Starten", 195, 140, 100, 30)
    $Button_C=GuiCtrlCreateButton("Beenden", 295, 140, 100, 30)

    [/autoit][autoit][/autoit][autoit]

    GUISetState ()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button_D
    MsgBox(64, "Information", "Datensicherung")
    Case $msg = $Button_C
    Exit
    Case $msg = $Button_R
    IniReadSection ("Sichpfad.ini", "Pfade")
    $Ziel =("H:\Backups\")
    $avarray = IniReadSection("Sichpfad.ini", "Pfade")
    For $i = 1 To $avarray[0][0]
    $rob = RunWait(@ComSpec & " /c "& "robocopy" & $avarray[$i][1] & " " & $Ziel & " /COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V", "" ,@SW_HIDE)
    Next
    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

    [/autoit][autoit][/autoit][autoit][/autoit]
  • Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Local $sBasePfad =('H:\Backups\')
    Local $iniName = 'Sichpfad.ini', $iniSection = 'Pfade'

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate("BackupTool v0.0.2 >>"&@ComputerName&"<<", 382, 110)
    $Group1 = GUICtrlCreateGroup("", 16, 8, 353, 41)
    $hInput = GUICtrlCreateInput($sBasePfad, 40, 21, 225, 21)
    $hBtnBrowse = GUICtrlCreateButton("Durchsuchen", 272, 23, 89, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 16, 48, 353, 40)
    $hBtnStart = GUICtrlCreateButton("Start", 160, 63, 89, 17)
    $hBtnExit = GUICtrlCreateButton("Exit", 272, 63, 89, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hBtnExit
    Exit
    Case $hBtnBrowse
    _BrowseFolder()
    Case $hBtnStart
    _StartCopy()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _BrowseFolder()
    Local $newFolder = FileSelectFolder("Bitte Backup Ordner auswählen",@ComputerName)
    If $newFolder <> '' Then GUICtrlSetData($hInput,$newFolder)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _StartCopy()
    GUICtrlSetState($hBtnStart,$GUI_DISABLE)
    GUICtrlSetState($hBtnBrowse,$GUI_DISABLE)
    Local $aReadINI = IniReadSection($iniName,$iniSection)
    Local $OutPut = GUICtrlRead($hInput)

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $aReadINI[0][0]
    $RoboCopy = RunWait(@ComSpec & " /c "& "robocopy" & $aReadINI[$i][1] & " " & $OutPut & " /COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V", "" ,@SW_HIDE)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    If $RoboCopy = 1 Then MsgBox(64, "Erfolgreich!", "Ihre Sicherung wurde erfolgreich durchgeführt, klicken Sie auf 'OK' um dieses Fenster zu schliessen.")
    If $RoboCopy = 0 Then MsgBox(16, "Fehlgeschlagen", "Ihre Sicherung ist fehlgeschlagen, bitte überprüfen Sie, ob Sie mit dem Netzwerk verbunden sind!.")

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($hBtnStart,$GUI_ENABLE)
    GUICtrlSetState($hBtnBrowse,$GUI_ENABLE)
    EndFunc

    [/autoit]

    NICHT GETESTET, weil ich habe keine RoboCopy EXE in meinem Lehrgang zur Hand^^
    Hoffe mal es Läuft, habe kein ERROR Handeling im Script eingebaut also wenn zb die INI nicht vorhanden ist, somit kein Array erstellt wird gibt es einen Error usw.. solltest du sowas brauchen kannste dir das ja noch mit einbauen ;)

    Gruß Marvin

  • Das Script von dir ist echt toll, aber leider funktioniert es bei mir nicht! Es kommt kein Fehler, doch es kopiert einfach nichts! Vielleicht liegts an der robocopy.exe muss die irgendwo stehen oder extra installiert sein? Habe nur die Pfade und den Namen der "ini" geändert ??? Noch etwas: Das Ziel darf auch nicht ausgeählt werden, also H:\Backups muss fix bleiben. Ich denke jetzt bin ich schon ein wenig lästig - Sorry :)

    Ich stehe so kurz vor dem Ziel ich bin mir sicher!

    Ini schaut so aus:

    [PFADE]
    Pfad1=C:\Test

    [autoit]


    #include <GUIConstantsEx.au3>

    [/autoit][autoit][/autoit][autoit]

    Local $sBasePfad =('H:\Backups\')
    Local $iniName = 'C:\Users\P50038\Desktop\AutoIT Test\sich.ini', $iniSection = 'PFADE'

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate("BackupTool v0.0.2 >>"&@ComputerName&"<<", 382, 110)
    $Group1 = GUICtrlCreateGroup("", 16, 8, 353, 41)
    $hInput = GUICtrlCreateInput($sBasePfad, 40, 21, 225, 21)
    $hBtnBrowse = GUICtrlCreateButton("Durchsuchen", 272, 23, 89, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 16, 48, 353, 40)
    $hBtnStart = GUICtrlCreateButton("Start", 160, 63, 89, 17)
    $hBtnExit = GUICtrlCreateButton("Exit", 272, 63, 89, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hBtnExit
    Exit
    Case $hBtnBrowse
    _BrowseFolder()
    Case $hBtnStart
    _StartCopy()
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func _BrowseFolder()
    Local $newFolder = FileSelectFolder("Bitte Backup Ordner auswählen",@ComputerName)
    If $newFolder <> '' Then GUICtrlSetData($hInput,$newFolder)
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _StartCopy()
    GUICtrlSetState($hBtnStart,$GUI_DISABLE)
    GUICtrlSetState($hBtnBrowse,$GUI_DISABLE)
    Local $aReadINI = IniReadSection($iniName,$iniSection)
    Local $OutPut = GUICtrlRead($hInput)

    [/autoit][autoit][/autoit][autoit]

    For $i = 1 To $aReadINI[0][0]
    $RoboCopy = RunWait(@ComSpec & " /c "& "robocopy" & $aReadINI[$i][1] & " " & $OutPut & " /COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V", "" ,@SW_HIDE)
    Next

    [/autoit][autoit][/autoit][autoit]

    If $RoboCopy = 1 Then MsgBox(64, "Erfolgreich!", "Ihre Sicherung wurde erfolgreich durchgeführt, klicken Sie auf 'OK' um dieses Fenster zu schliessen.")
    If $RoboCopy = 0 Then MsgBox(16, "Fehlgeschlagen", "Ihre Sicherung ist fehlgeschlagen, bitte überprüfen Sie, ob Sie mit dem Netzwerk verbunden sind!.")

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetState($hBtnStart,$GUI_ENABLE)
    GUICtrlSetState($hBtnBrowse,$GUI_ENABLE)

    [/autoit]
  • in Zeile 43 fehlt ein Leerzeichen hinter "robocopy"

    So müsste es klappen:

    [autoit]

    $RoboCopy = RunWait(@ComSpec & " /c "& "robocopy " & $aReadINI[$i][1] & " " & $OutPut & " /COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V", "" ,@SW_HIDE)

    [/autoit]
  • Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Local $iniName = 'Sichpfad.ini', $iniSection = 'Pfade'
    Local $sBasePfad =IniRead($iniName,'BasePfad','Pfad','H:\Backups\')
    Local $sParms = '/COPY:DT /MIR /XO /XF *.avi *.mp3 *.jpg *.wav *.wma /R:10 /W:10 /V'
    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate("BackupTool v0.0.2 >>"&@ComputerName&"<<", 382, 110)
    $Group1 = GUICtrlCreateGroup("", 16, 8, 353, 41)
    $hInput = GUICtrlCreateInput($sBasePfad, 40, 21, 225, 21)
    $hBtnBrowse = GUICtrlCreateButton("Durchsuchen", 272, 23, 89, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 16, 48, 353, 40)
    $hBtnStart = GUICtrlCreateButton("Start", 160, 63, 89, 17)
    $hBtnExit = GUICtrlCreateButton("Exit", 272, 63, 89, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hBtnExit
    Exit
    Case $hBtnBrowse
    _BrowseFolder()
    Case $hBtnStart
    _StartCopy()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _BrowseFolder()
    Local $newFolder = FileSelectFolder("Bitte Backup Ordner auswählen",@ComputerName)
    IniWrite($iniName,'BasePfad','Pfad',$newFolder)
    If $newFolder <> '' Then GUICtrlSetData($hInput,$newFolder)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _StartCopy()
    GUICtrlSetState($hBtnStart,$GUI_DISABLE)
    GUICtrlSetState($hBtnBrowse,$GUI_DISABLE)
    Local $aReadINI = IniReadSection($iniName,$iniSection)
    Local $OutPut = GUICtrlRead($hInput)
    Local $ExecuteString = ''

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $aReadINI[0][0]

    [/autoit] [autoit][/autoit] [autoit]

    $FolderName = _CreateDir($aReadINI[$i][1])
    MsgBox(2,"",$FolderName)
    $ExecuteString = $aReadINI[$i][1] &' '&'"'&$OutPut&'\'&$FolderName&'" '&$sParms
    $Run = ShellExecute('RoboCopy.exe',$ExecuteString,@ScriptDir,'',@SW_HIDE)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($hBtnStart,$GUI_ENABLE)
    GUICtrlSetState($hBtnBrowse,$GUI_ENABLE)
    MsgBox(2,"DONE","Kopiervorgang abgeschlossen")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _CreateDir($String)
    Local $aSplit = StringSplit($String,'\')
    Local $sTrim = StringTrimRight($aSplit[UBound($aSplit)-1],1)
    DirCreate(GUICtrlRead($hInput)&'\'&$sTrim)
    Return $sTrim
    EndFunc

    [/autoit]

    So sollte alles passen , jetzt werden auch die zu Kopierenden Ordner auch in eine Strucktur gebracht und die Daten (sobald man mehrere Ordner Kopiert) wieder überschrieben..

    Gruß Marvin

  • Hallo Protex!

    Dein Script ist echt suuuuuuuper und funktioniert! Nur eine kleine Anmerkugn! Die Anwendung gibt auf der Stelle die Meldung "Sicherung erfolgreich" zurück, obwohl der Vorgang im Hintergund noch läuft. Kann man das noch irgendwie einstellen, dass erst nach erfolgreicher Kopie die meldung erscheint. Ich glaube da müsste robocopy iregendeinen Wert zurückgeben IF=1 ??????

    danke!

  • Wenn du ein Leerzeichen, wie ich es im vorherigen Post erwähnt habe, setzt, dann klappt auch dein Script ;)