Datei öffnen / Dateiname Teil variabel

[DeddyH]

Ich meinte die Kommandozeile (WIN + R -> cmd).

[jigsawclan]

Also eh die :-D

Ja da werden mir alle meine 99er Datein angezeigt

[Aviator]

Hi,

hab das hier mal schnell erstellt. Vielleicht hilft es dir ja weiter:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  i := 1;
  repeat
    ShowMessage(Chr(i + 64) + '99.doc');
    if ShellExecute(Handle, 'open', PChar(Chr(i + 64) + '99.doc'), nil, nil, SW_SHOWMAXIMIZED) <= 32 then
    Inc(i) else i := 27;
  until i = 27;
end;

PS.: Verwende doch bitte auch beim nächsten Mal die Delphi Tags. Delphi Helm oben in der Mitte beim Schreiben deines Beitrages. Und dann einfach dort den Code reinposten.

[DeddyH]

Und damit hast Du doch das Verzeichnis und die Suchmaske für FindFirst ;)

Delphi-Quellcode:

if FindFirst('C:\Test\?99.doc', faAnyFile, SearchRecVariable) = 0 then
  try
    repeat
      //Irgendwas mit der aktuellen Datei machen
    until FindNext(SearchRecVariable) <> 0;
  finally
    FindClose(SearchRecVariable);
  end;

[jigsawclan]

Ich werde jetzt mal versuchen nachzuvollziehen was das genau ist :-D

Nur wo darf ich den Pfad eintragen?

EDIT: Ok da war jetzt ein Post dazwischen :)
ich werd das mal durchforsten

[jigsawclan]

jetzt macht er aber schon bei der zeile probleme

Delphi-Quellcode:

if FindFirst('C:\Test\?99.doc', faAnyFile, SearchRecVariable) = 0 then

[DeddyH]

Geht es auch etwas genauer?

[jigsawclan]

unten bei error schreibt er

undeclared identifier; SearchRecVariable
formal var parameter must be identical
expression of type string found

[DeddyH]

Das war ja auch nur ein Platzhalter für eine Variable vom Typ TSearchRec, die Du deklarieren musst.

[jigsawclan]

OK :)
Jetzt bin ich an dem Punkt angelangt wo es mir zuviel wird :P

Biete eine Kiste Bier ;) ;)