Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
339 Beiträge
 
Delphi 12 Athens
 
#1

Existenz langer Pfade

  Alt 3. Jul 2017, 20:50
Hallo,

ich prüfe ob ein langer Pfad existiert mit:

Code:
function DirExists(const Dirname: string): Boolean;
var FindData: TWin32FindData;
    Handle: THandle;

begin
  Handle:=FindFirstFileW(PWideChar('\\?\'+Dirname+#0#0), FindData);

  if Handle<>INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);

    result:=FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0;
  end
  else
    result:=False;
end;
Wenn Dirname ein Netzwerkpfad ist \\QNAP\abc ist funktioniert das nicht. Warum?

Beste Grüße
  Mit Zitat antworten Zitat