Verzeichnisstruktur

[Andreas L.]

Zitat:

G:\PICS\9\R\22\3

9R223000L5.jpg

Sind die Namen der Ordner wie 9 oder R oder 22 immer gleich lang? Wenn ja, kannst du deine eingegebene Nummer einfach mit Copy, Pos und evtl. PosEx zerlegen.

Delphi-Quellcode:

var
  tmp: String;
  input: String;
  path: String;
begin
  path := 'G:\PICS\';
  input := Edit1.Text;

  // 1. Zeichen ermitteln
  tmp := Copy(input, 1, 1);

  path := path + tmp + '\';
  // path ist jetzt G:\PICS\9\

  // und so weiter bis du den vollständigen Pfad + Dateinamen hast
  // Öffnen kannst du die Datei dann mit ShellExecute
end;