Dateiendung unbekannt --> herrausfinden

[Christian18]

Hallo,

ich habe einen Pfad aber leider keine Dateiendung. Kann ich diese ermittln???

Der Pfad sieht so aus:

C:\Test

Dateiendungen können sein:

.bmp oder .jpg

Welche es ist weiß ich nicht. Kann ich es irgendwie herrausfinden?

MFG Christian18

[Bernhard Geyer]

?? :gruebel:

Was willst du genau herausfinden? Ob in deinem Pfad Jpegs oder Bmp's liegen

[Christian18]

Nein,

ich bekomme ich Textdatei im CSV für Fornmat. Dort ist ein Pfad drin, wo sich das Image befindet. Das Image kann den Pfad c:\Image1.bmp oder c:\Image1.jpg haben. Die Dateiendung ist in den Pfad leider nicht mit gespeichert.

LG Chris

[angos]

Hallo,

deine Antwort deutet darauf hin, dass du genau das suchst wonach Bernhard Geyer gefragt hat.

such mal in der DP nach FindAllFiles

Wenn dir das nicht weiterhilft, stelle die Anfrage bitte noch einw engi genauer


Gruß

[Andreas L.]

Delphi-Quellcode:

if fileexists('C:\image1.jpg') then
begin
MachwasmitJpeg;
end
else
begin
machwasmitbmp;
end;

[shmia]

nichts leichter als das, komm mit:

Delphi-Quellcode:

pfad := 'c:\pics\Image1';
pfad := ChangeFileExt(pfad, '.bmp');
if not FileExists(pfad) then
   pfad := ChangeFileExt(pfad, '.jpg');
if FileExists(pfad) then
   Image1.LoadFromFile(pfad);

[Christian18]

Vielen Dank, ihr habt mir sehr geholfen.

LG Christian18