Diese Funktion aus Ausführen in Aufgabe Zurück, ermöglicht es Ihnen, den Namen einer Datei zu ändern. In OldName ist es notwendig, den Namen der umzubenennenden Datei durch Angabe des gesamten Pfades zu definieren (Beispiel C:\Directory\OldFile.txt), In NewName Sie müssen den neuen Dateinamen definieren, indem Sie den gesamten Pfad angeben (Beispiel C:\Directory\NewFile.txt).
Wenn die Umbenennungsoperation erfolgreich ist, kehrt die Funktion zurück TRUEIm Fehlerfall wird es zurückgegeben FALSE.
Es ersetzt Sysrename
Ersetzt die Funktion Sysrename Ändern des Typs der Eingabeparameter von Zeichenfolge zu Zeiger zu Zeichenfolge. Die vorherige Aussage:
i:=Sysrename('C:\Directory\OldFile.txt', 'C:\Directory\NewFile.txt');
Wird:
i:=SysFileRename(ADR('C:\Directory\OldFile.txt'), ADR('C:\Directory\NewFile.txt'));
Funktion
CODESYS: nicht verfügbar
LogikLab: eLLabXUnified12Lib
Beschreibung
OldName (@STRING) Name der umzubenennenden Datei inklusive Pfad.
NewName (@STRING) Neuer Name für die Datei einschließlich Pfad.
Die Funktion liefert ein (BOOL), FALSE Wenn Ausführungsfehler, TRUE wenn ich ok renne.
Beispiele
Verwendung der Beispiele.
Im Beispiel durch Aktivierung der Variable aus debug Rename, die Datei C:\Directory\OldFile.txt Wenn vorhanden, wird es umbenannt C:\Directory\NewFile.txt und die Variable wird zurückgesetzt. Im Falle eines Ausführungsfehlers wird der Fehlercode in der Variablen gespeichert ECode.
LogicLab (Ptp116, ST_SysFileRename)
PROGRAM ST_SysFileRename
VAR
Rename : BOOL; (* Rename command *)
ECode : UDINT; (* Error code *)
END_VAR
// *****************************************************************************
// PROGRAM "ST_SysFileRename"
// *****************************************************************************
// By setting the Rename command a file is renamed.
// -----------------------------------------------------------------------------
IF (Rename) THEN
Rename:=FALSE; //Rename command
IF (SysGetFileLen(ADR('C:\Directory\OldFile.txt')) <> eEOF) THEN
IF NOT(SysFileRename(ADR('C:\Directory\OldFile.txt'), ADR('C:\Directory\NewFile.txt'))) THEN
ECode:=SysGetLastError(TRUE); //Error code
END_IF;
END_IF;
END_IF;
// [End of file]