[r59]: / trunk / library / FB_FileControl / Open / svnobj  Maximize  Restore  History

Download this file

10 lines (9 with data), 1.9 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
(*
    Opens a file
*)
METHOD PUBLIC Open : SysFile.SysTypes.RTS_IEC_RESULT;
VAR_INPUT
    FileAccessMode : SysFile.ACCESS_MODE := SysFile.ACCESS_MODE.AM_APPEND_PLUS;
FileHandle := SysFile.SysFileOpen(szFile := Filename,
                                  am := FileAccessMode,
                                  pResult := ADR(Open));