Moin,
Mal wieder was, was ich nicht verstehe.
Hier mal den Ausschnitt um den es geht :
Spoiler anzeigen
GUICtrlSetData($Progress1, 0)
$read1 = GUICtrlRead($2Checkbox1)
$read2 = GUICtrlRead($2Checkbox2)
$aFiles = _FileListToArray(@ScriptDir & "\Pflanzen DB\files\")
$aPics = _FileListToArray(@ScriptDir & "\Pflanzen DB\pics\")
$aPicfiles = _FileListToArray(@ScriptDir & "\Pflanzen DB\picfiles\")
$aData = _FileListToArray(@ScriptDir & "\Pflanzen DB\data\")
$aAlle = _FileListToArray(@ScriptDir & "\Pflanzen DB\")
$aAlle_save = _FileListToArray(@ScriptDir & "\Pflanzen DB\Sicherung\")
GUICtrlSetData($Progress1, 0)
[/autoit] [autoit][/autoit] [autoit]$Progress1_end = $aFiles[0] + $aPics[0] + $aPicfiles[0] + $aData
$Progress1_step = 100 / $Progress1_end
If $read1 = 1 Then
If IsArray($aFiles) Then
For $i = 1 To $aFiles[0]
$copy = FileCopy(@ScriptDir & "\Pflanzen DB\files\" & $aFiles[$i], @ScriptDir & "\Pflanzen DB\Sicherung\files\", 9)
$Progress1_ist = GUICtrlRead($Progress1)
GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aFiles[$i])
If $copy = 0 Then
$error = "Fehler beim Kopieren der Datei " & $aFiles[$i]
IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aFiles[$i])
EndIf
Next
EndIf
If IsArray($aPics) Then
For $i = 1 To $aPics[0]
$copy = FileCopy(@ScriptDir & "\Pflanzen DB\data\" & $aPics[$i], @ScriptDir & "\Pflanzen DB\Sicherung\data\", 9)
$Progress1_ist = GUICtrlRead($Progress1)
GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aPics[$i])
If $copy = 0 Then
$error = "Fehler beim Kopieren der Datei " & $aPics[$i]
IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aPics[$i])
EndIf
Next
EndIf
If IsArray($aPicfiles) Then
For $i = 1 To $aPicfiles[0]
$copy = FileCopy(@ScriptDir & "\Pflanzen DB\picfiles\" & $aPicfiles[$i], @ScriptDir & "\Pflanzen DB\Sicherung\picfiles\", 9)
$Progress1_ist = GUICtrlRead($Progress1)
GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aPicfiles[$i])
If $copy = 0 Then
$error = "Fehler beim Kopieren der Datei " & $aPicfiles[$i]
IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aPicfiles[$i])
EndIf
Next
EndIf
If IsArray($aData) Then
For $i = 1 To $aData[0]
$copy = FileCopy(@ScriptDir & "\Pflanzen DB\pics\" & $aData[$i], @ScriptDir & "\Pflanzen DB\Sicherung\pics\", 9)
$Progress1_ist = GUICtrlRead($Progress1)
GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aData[$i])
If $copy = 0 Then
$error = "Fehler beim Kopieren der Datei " & $aData[$i]
IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aData[$i])
EndIf
Next
EndIf
If $error <> "OK" Then
MsgBox(0, "Datenbank nicht gesichert", "Datenbanksicherung fehlgeschlagen.Mehr Infos in der error.log")
;~ ToolTip("Datenbank nicht gesichert", "Datenbanksicherung fehlgeschlagen.Mehr Infos in der error.log")
;~ sleep(5000)
Else
MsgBox(0, "Datenbank gesichert", "Datenbanksicherung erfolgreich durch geführt" & @CRLF & "Es wurden " & $aAlle_save[0] & " Einträge gesichert")
IniWrite($data_dir & "\pflanzen.ini", 'save', 'last', @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN)
$last_date = IniRead($data_dir & "\pflanzen.ini", 'save', 'last', "keine erfolgt")
GUICtrlSetData($2Label2, "Letzte Sicherung war am : " & $last_date)
GUICtrlSetData($status_label, "Erledigt")
EndIf
und zwar geht es um folgenden Bereich:
If IsArray($aData) Then
For $i = 1 To $aData[0]
$copy = FileCopy(@ScriptDir & "\Pflanzen DB\pics\" & $aData[$i], @ScriptDir & "\Pflanzen DB\Sicherung\pics\", 9)
$Progress1_ist = GUICtrlRead($Progress1)
GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aData[$i])
If $copy = 0 Then
$error = "Fehler beim Kopieren der Datei " & $aData[$i]
IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aData[$i])
EndIf
Next
EndIf
In dem Ordner befindet sich nur eine ini Datei, wo ich Einstellungen gespeichert habe. Das Problem ist das FileCopy mir immer einen Fehler (Fehler 0) zurück gibt, kopiert aber manchmal die Datei, aber eben nur manchmal. Kann sich das einer erklären ??