opath = "w:\work\1"
npath = "w:\work\2"
type = "odc"
res = 0
HostLocator's opath = w:\work\1
HostLocator's npath = w:\work\2

opath = "1"
npath = "2"
type = "odc"
Список файлов 1 не получен: location or file not found
Список файлов 2 не получен: location or file not found
res = -1
HostLocator's opath = W:\work\1
HostLocator's npath = W:\work\2

   PROCEDURE (d: Directory) FileList* (loc: Files.Locator): Files.FileInfo;
      VAR ...
-->         firstRes: INTEGER;
   BEGIN
      ASSERT(loc # NIL, 20);
      first := NIL; last :=NIL;
      WITH loc: Locator DO
         Append(loc.path, wildcard, wildcard, loc.maxLen, s);
         find := WinApi.FindFirstFileW(s, fd);
         IF find # invalid THEN
...
         ELSE res := WinApi.GetLastError()
         END;
         IF res = noMoreFilesErr THEN res := ok END;
-->         firstRes := res;
         (* check startup directory *)
         IF (loc.rootLen > 0) & ((res = ok) OR (res = fileNotFoundErr) OR (res = pathNotFoundErr)) THEN
            GetShadowDir(loc, s);
...
         END;
-->         IF (res = fileNotFoundErr) OR (res = pathNotFoundErr) THEN res := firstRes END;
         loc.res := Error(res)
      ELSE loc.res := invalidName
      END;
      RETURN first
   END FileList;

   PROCEDURE MaskFileList (loc : Files.Locator; IN mask : ARRAY OF CHAR) : Files.FileInfo;
...         res1 : INTEGER; (* 28.09.2006   ING *)
...         res1 := res; (* 28.09.2006   ING *)
...         IF res1 = ok THEN res := ok END; (* 28.09.2006   ING *)
   END MaskFileList;