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.