Verzeichnisstruktur

[DeddyH]

Jepp, obwohl ich da dann lieber eine Zwischenvariable nutzen würde, damit die Funktion nicht mehrfach durchlaufen werden muss.

Delphi-Quellcode:

begin
  Datei := GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', [2,3,5,6]);
  if FileExists(Datei)
  then
    ShellExecute(0,
             'open',
             'C:\Program Files\IrfanView\i_view32.exe',
             Pchar(Datei),
             nil,
             SW_SHOW)
            //end;
           else
           ShowMessage('Nicht gefunden!')
  end;
end.