dinfo:ARRAY [1..20] OF DirInfo;
res:UDINT;
handle:UDINT;
dirs:ARRAY [1..20] OF STRING(255);



PLC_PRG.cnt:=1;
str1:='/mnt/ufs/root/';
PLC_PRG.handle:=SysDirOpen(PLC_PRG.str1,'',20,ADR( PLC_PRG.dinfo[1]),ADR(PLC_PRG.res));
IF PLC_PRG.handle=-1 THEN
RETURN;
END_IF
WHILE (ERR_OK=SysDirRead(PLC_PRG.handle,PLC_PRG.str1,20, ADR(PLC_PRG.dinfo))) DO
IF FIND(str1,'.dat')<>0 THEN
PLC_PRG.dirs[PLC_PRG.cnt]:=PLC_PRG.str1;
PLC_PRG.cnt:=PLC_PRG.cnt+1;
END_IF
END_WHILE
SysDirClose(PLC_PRG.handle);