Findfirst funktioniert nicht mit UNC-Pfad

[MacGuyver]

Moin Leute :hi:

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

[APP]

Hallo Stafen
ich verwende FindFirst mit UNC-Pfaden ohne Probleme.

Als Test könntest Du ja aus der Library Sakuras Way :-) diese Implementierung von FindFirst verwenden, wobei Du Deinen UNC-Pfad übergibst und schaust was passiert.

BTW: FindFirst muß immer mit FindClose abgeschlossen werden.

[Muetze1]

Moin!

Bei deinem Code den du hier gepostet hast greifst du noch nicht auf ein Verzeichnis zu sondern du suchst die Freigaben auf dem Rechner und da kann dir FindFirst()/FindNext() nicht viel helfen - da müsstest du die Netzwerkfunktionen von Windows bemühen. Wenn du z.B. ein FindFirst() in einer Freigabe machst, dann klappt das auch ohne Probleme: \\Rechnername\Freigabe\*.*

MfG
Muetze1