Navigation:  Libraries > CT File Access > Examples > File Modification Example

(* example of how to use the file change function blocks *)

PROGRAM FILE.CHANGE_PRG

VAR

  xFileChgInit: BOOL:=FALSE;

  uiFileChgState: UINT:=0;

  sFileOldName: CAA.FILENAME:= 'TestFile.txt';

  sFileNewName: CAA.FILENAME:= 'NewFile.txt';

  szCopiedFileSize: CAA.SIZE := 0;

  filcp: FILE.Copy;

  filrn: FILE.Rename;

  fildl: FILE.Delete;

END_VAR

 

IF NOT xFileChgInit THEN

  fildl(xExecute:=FALSE);

  filrn(xExecute:=FALSE);

  filcp(xExecute:=FALSE);

  xFileChgInit:=TRUE;

  uiFileChgState:=0;

ELSE

  CASE uiFileChgState OF

  0:(*copy file *)

     filcp.sFileNameSource:=sFileNewName;

     filcp.sFileNameDest:='DestFile.txt';

     filcp.udiTimeOut:=100000; (* 100ms Timeout *)

     filcp.xOverWrite:=TRUE; (* overwrite the existing file *)

     filcp( xExecute:=TRUE);

     IF filcp.xDone THEN

        szCopiedFileSize := filcp.szSize;

        uiFileChgState:=1;

     END_IF

     IF filcp.xError THEN

        (* error handling*)

        ;

     END_IF

  1: (* rename file *)

     filrn.sFileNameOld:='DestFile.txt';

     filrn.sFileNameNew:=sFileNewName;

     filrn( xExecute:=TRUE);

     IF filrn.xDone THEN

        uiFileChgState:=2;

     END_IF

     IF filrn.xError THEN

        (* error handling*)

        ;

     END_IF

  2:(* delete file *)

     fildl.sFileName:=sFileNewName;

     fildl( xExecute:=TRUE);

     IF fildl.xDone THEN

        uiFileChgState:=3;

     END_IF

     IF fildl.xError THEN

        (* error handling*)

        ;

     END_IF

  3:

     (* end of example*)

     ;

  END_CASE

END_IF