Dateitree auslesen

[marabu]

Guten Morgen.

Irgendjemand muss doch den Ordner Katalog06 angelegt haben - und wenn das mit einem Setup-Programm gemacht wurde, dann sollte der Ort in der Registry vermerkt sein. Wenn es der Benutzer deines Programms selbst gemacht hat, dann sollte dein Programm ihn fragen und sich die Antwort merken. Die Aufhängung des Verzeichnisses direkt unter dem root folder dürfte wohl auch nur auf einem privaten PC funktionieren - bei vorgegebenem file system layout gibt es Probleme.

Wenn du aber partout nach dem Ordner suchen möchtest, dann wäre das hier ein möglicher Ansatz:

Delphi-Quellcode:

function LocateFolder(const path: TFileName): TFileName;
var
  bDrive: Byte;
begin
  for bDrive := 2 to 25 do
    if DriveExists(bDrive) then
    begin
      Result := Format('%s:%s', [Chr(Ord('A') + bDrive), path]));
      if DirExists(Result) then Exit;
    end;
  Result := '';
end;

begin
  ShowMessage(LocateFolder('\katalog06'));
end;

Getippt und nicht getestet. DriveExists()

Grüße vom marabu