Verzeichnisstruktur

[DeddyH]

Also wohl eher so:

Delphi-Quellcode:

function GetDirFromFilename(const Filename, IncludingDir: string;
  BackslashPositions: array of integer): string;
var
  i, RealPosition: integer;
  SubDir: string;
begin
  RealPosition := 0;
  SubDir := Filename;
  for i := Low(BackslashPositions) to High(BackslashPositions) do
    begin
      Insert('\', SubDir, BackslashPositions[i] + RealPosition);
      inc(RealPosition);
    end;
  SubDir := ExtractFilePath(IncludeTrailingPathDelimiter(IncludingDir) + SubDir);
  Result := SubDir + Filename;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetDirFromFilename('9R223000L5.jpg', 'G:\PICS', [2,3,5,6]))
end;