PROGRAM PLC_PRG
VAR
sFirstEntry : STRING;
DirInfo : SysDir.DirInfo;
rtsResult : SysFile.SysTypes.RTS_IEC_RESULT;
rtsResult1 : SysFile.SysTypes.RTS_IEC_RESULT;
rtsHandle : SysFile.SysTypes.RTS_IEC_HANDLE;
xReadfirst : BOOL;
xContinue : BOOL;
END_VAR
IF xReadfirst THEN
rtsHandle := SysDir.SysDirOpen('/lib/',sFirstEntry,SIZEOF(sFirstEntry),ADR(DirInfo),ADR(rtsResult));
xReadfirst := FALSE;
END_IF
IF xContinue THEN
rtsResult1 := SysDir.SysDirRead(rtsHandle,sFirstEntry,SIZEOF(sFirstEntry),ADR(DirInfo));
xContinue := FALSE;
END_IF