Esta función de ejecutar en tarea Atrás, le permite cambiar el nombre de un archivo. En OldName es necesario definir el nombre del archivo a renombrar especificando la ruta completa (Ejemplo C:\Directory\OldFile.txt) En NewName necesita definir el nuevo nombre de archivo especificando la ruta completa (Ejemplo C:\Directory\NewFile.txt).
Si la operación de cambio de nombre tiene éxito, la función devuelve TRUE, en caso de error se devuelve FALSE.
Reemplaza a Sysrename
Reemplaza la función Sysrename cambiando el tipo de parámetros de entrada de cadena a puntero a cadena. La declaración anterior:
i:=Sysrename('C:\Directory\OldFile.txt', 'C:\Directory\NewFile.txt');
Se convierte en:
i:=SysFileRename(ADR('C:\Directory\OldFile.txt'), ADR('C:\Directory\NewFile.txt'));
Funzione
CÓDIGOS: indisponible
Laboratorio lógico: eLLabXUnified12Lib
Descripción
OldName (@STRING) Nombre del archivo a renombrar incluyendo la ruta.
NewName (@STRING) Nuevo nombre para dar al archivo incluyendo la ruta.
La función devuelve un (BOOL), FALSE si error de ejecución, TRUE si corro Ok.
Ejemplos
Cómo utilizar los ejemplos..
En el ejemplo activando la variable desde debug Rename, el archivo C:\Directory\OldFile.txt si está presente se renombra C:\Directory\NewFile.txt y la variable se restablece. En caso de error de ejecución, el código de error se almacena en la variable ECode.
Laboratorio lógico (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]