Datei öffnen / Dateiname Teil variabel

[jigsawclan]

Da es einige Dateien werden will ich sie mir eigentlich nicht aussuchen sondern einfach nur alle öffnen.
das wäre die optimale zeitersparnis.

[baumina]

Dann kommst Du um FindFirst/FindNext nicht herum.

[jigsawclan]

Also einfach nur mit einem buttonklick alle öffnen ist nicht möglich?

[Sir Rufo]

Zitat von jigsawclan:

Also einfach nur mit einem buttonklick alle öffnen ist nicht möglich?

Doch, warum nicht?

Du musst aber selber programmieren, was bei diesem ominösen ButtonClick passieren soll.

Es gibt aber keinen JetztMachDasWasIchMirGeradeDenke Befehl

[jigsawclan]

Das es sowas nicht gibt ist mir schon klar.
nur dadurch das ich gerade anfange ist es schwierig...ich weiß nicht wonach ich suchen soll bzw. ob das was ich machen möchte überhaupt funktioniert

[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.

[jigsawclan]

also ich verwende Delphi 7.
werd das mal probieren und mich in der Hilfe ein wenig einlesen.
Vielleicht komm ich ja zu einem passablen ergebnis.
Danke vorerst mal für die Hilfe

[Sir Rufo]

Zitat von jigsawclan:

Da es einige Dateien werden will ich sie mir eigentlich nicht aussuchen sondern einfach nur alle öffnen.
das wäre die optimale zeitersparnis.

Jo, es gibt aber keine procedure AlleDateienÖffnenDieJigsawclanMeint; wenn du diese nicht selber schreibst