Hallo,
ich hab mal wieder eine Frage:
Versuche gerade mehrere Dateien von einem Ordner in einen anderen zu kopieren, (funktioniert) und danach abzufragen ob der Kopiervorgang erfolgreich war.
Also erst mit FileOpenDialog die Dateien zum kopieren auswählen, dann mit FileCopy in einen Ordner zu kopieren und nun komm ich nicht weiter.
Wie kann ich den FileExist bauen, damit dieser die Dateien im Array, aus dem FileOpenDialog, mit den kopierten Dateien vergleicht??????
Nun müsste ich wohl mit StringSplit weitermachen, aber hier stoße ich an meine Grenzen, ich kapiers nicht.
Spoiler anzeigen
Code
Func FcnKopierenTest()
$sSichOrdner = GUICtrlRead($RFC_Nr)
$TargetFcnTest01 = IniRead("Settings.ini", "pfade", "Test_Funktion","")
$TargetFcnDev01 = IniRead("Settings.ini", "pfade", "Dev_Funktion","")
Local Const $sMessage = "Strg oder Shift drücken um mehrere Dateien auszuwählen."
Local $sFcnOpenDialog = FileOpenDialog($sMessage, $TargetFcnDev01, "Overlay (*.fcn)|Alle (*.*)", BitOR($FD_FILEMUSTEXIST, $FD_MULTISELECT))
If @error Then
; Zeigt die Fehlermeldung.
MsgBox($MB_SYSTEMMODAL, "", "Keine Dateien ausgewählt.")
Else
$sSichOrdner = GUICtrlRead($RFC_Nr)
$Verz_Fcn_Sich = $TargetFcnTest01 & @YEAR & @MON & @MDAY & @HOUR & @MIN & "_" & $sSichOrdner & "\"
DirCreate($Verz_Fcn_Sich)
ConsoleWrite($Verz_Fcn_Sich)
$lEintrag = "Verzeichnis " & $Verz_Fcn_Sich & "wurde erstellt."
_WriteLog($lEintrag)
Local $aFcn = StringSplit($sFcnOpenDialog, "|") ; Trennt den String durch das Trennzeichen ",".
For $i = 2 To $aFcn[0] ; Durchläuft das Array, welches durch StringSplit zurückgegeben wurde und stellt die Werte dar.
FileCopy($TargetFcnTest01 & $aFcn[$i], $Verz_Fcn_Sich & $aFcn[$i])
If FileExists($Verz_Fcn_Sich & *.fcn) Then
$lEintrag = "Folgende Datei/en" & @CRLF & $aFcn[$i] & " wurden in das Verzeichnis " & $Verz_Fcn_Sich & " kopieret"
_WriteLog
Else
MsgBox(0, "Error", "Achtung es wurden keine Dateien gesichert.")
EndIf
MsgBox(0, "", $TargetFcnTest01 & $aFcn[$i], $Verz_Fcn_Sich & $aFcn[$i])
FileCopy($TargetFcnDev01 & $aFcn[$i], $TargetFcnTest01 & $aFcn[$i], 1)
$lEintrag = "Folgende Datei/en" & @CRLF & $aFcn[$i] & " wurden in das Verzeichnis " & $TargetFcnTest01 & " kopieret"
_WriteLog
Next
$sDateiAuswahl = StringReplace($sFcnOpenDialog, "|", @CRLF)
$LogEintrag = "Folgende Dateien wurden kopiert : " & @CRLF & $sDateiAuswahl
_WriteLog($LogEintrag)
EndIf
EndFunc
Alles anzeigen
Vielen Dank!