pastojs: fixed DirectoryExists

compiler/packages/pastojs/src/pas2jsfilecache.pp

@@ -906,13 +906,25 @@ end;
 function TPas2jsCachedDirectories.DirectoryExists(Filename: string): boolean;
 var
   Info: TFileInfo;
+  Dir: TPas2jsCachedDirectory;
 begin
   Info.Filename:=Filename;
   if not GetFileInfo(Info) then exit(false);
   if Info.Dir<>nil then
     Result:=(Info.Dir.FileAttr(Info.ShortFilename) and faDirectory)>0
   else
-    Result:={$IFDEF pas2js}NodeJSFS{$ELSE}SysUtils{$ENDIF}.DirectoryExists(Info.Filename);
+    begin
+    Dir:=GetDirectory(Filename,true,false);
+    if Dir<>nil then
+      Result:=Dir.Count>0
+    else
+      begin
+      Filename:=ChompPathDelim(ResolveDots(Filename));
+      if not FilenameIsAbsolute(Filename) then
+        Filename:=WorkingDirectory+Filename;
+      Result:={$IFDEF pas2js}NodeJSFS{$ELSE}SysUtils{$ENDIF}.DirectoryExists(Filename);
+      end;
+    end;
 end;
 
 function TPas2jsCachedDirectories.FileExists(Filename: string): boolean;