Findfirst funktioniert nicht mit UNC-Pfad

[MacGuyver]

Moin Leute

Da ist mir ein tolles Ding passiert. Ich wunder mich, daß mein Programm nicht funktioniert, wenn ich es direkt mit einem UNC-Pfad starte. Es liegt daran, daß FindFirst keine Verzeichnisse sondern nur die Dateien zurück gibt:

Delphi-Quellcode:

program CheckUNC;
{$APPTYPE CONSOLE}
uses
  sysutils;

Var
  lDinfo : TSearchRec;
  lEc    : Integer;

begin
  // Hier Anwender-Code
  lEc:=FindFirst('\\SHesse98se\*.*',faDirectory,lDinfo);
  While (lEc = 0) Do
  Begin
    If lDinfo.Attr And faDirectory = faDirectory Then
      WriteLn(lDinfo.Name);
    lEc:=FindNext(lDinfo);
  End;
  WriteLn('Ok.');
  ReadLn;
end.

Kann man da etwas tun? Wenn ich einen Netzlaufwerk verbinde klappt es.

Stefan