Opendialog Ordner

[DSign]

Hallo Ping Pong!
Probiere den folgenden Code mal aus:

Delphi-Quellcode:

var
 I: Integer;
 Dateiname, Ordner: String;
begin
 if OpenDialog1.Execute then
  begin
   for I:=0 to OpenDialog1.Files.Count-1 do
    begin
     Dateiname := ExtractFileName(OpenDialog1.Files.Strings[I]);
     Ordner := ExtractFilePath(OpenDialog1.Files.Strings[I]);
    end;
   end;
end;

Ich hoffe, dass es dir ein wenig hilft!