Datei öffnen / Dateiname Teil variabel

[nahpets]

Welche Version von Delphi hast Du?
Suche in der Hilfe mal nach FindFirst. In der Hilfe von Delphi 7 findest Du dann zu FindFirst ein rechts passables Beispiel, dass Du nur "ein bisserl" anpassen musst.

Delphi-Quellcode:

procedure SuchmirmalDateien(sDaStehtDrinWasIchSuche : String);
var
  sr: TSearchRec;
begin
  if FindFirst(sDaStehtDrinWasIchSuche, FileAttrs, sr) = 0 then begin
    repeat
      if (sr.Attr and faAnyFile) = sr.Attr then begin
        if ShellExecute(Application.Handle,'open',
                        PChar(sr.Name),
                        nil, nil, SW_NORMAL) <= 32 then begin
          ShowMessage('Es ist ein Fehler bei Datei ' + sr.Name + ' aufgetreten');
        end;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Der Aufruf könnte dann in etwa so aussehen: SuchmirmalDateien('D:\Test\teil1*.doc'); Das ist jetzt nur so "hingedaddelt" und ungetestet.