Einzelnen Beitrag anzeigen

dopeline

Registriert seit: 7. Mär 2003
Ort: Berlin
304 Beiträge
 
Delphi 7 Enterprise
 
#1

In Ordner nach Datei suchen, deren Endung unbekannt ist

  Alt 25. Jul 2004, 16:20
Hallo!

Ich eine Datei in ein TImage einladen. ich kenne den Dateinamen, allerdings ohne endung. es könnte ein bmp, jpg, gif o.ä. sein.
ich muss also diesen ordner nach dieser datei suchen um die endung heraus zu bekommen und die datei dann zu öffnen.

Wie stelle ich das an?

als ansatz könnte man diese prozedur nutzen. sie durchsucht ein verzeichnis (incl Unterverzeichnisse -> bei mir aber nicht nötig) nach dateien eines bestimmten dateityps und fügt sie in eine ListBox ein. (z.b. alle mp3-dateien aus den eigenen Dateien)

Delphi-Quellcode:
procedure ScanDirectory(mask : String);
var
  search : TSearchRec;
  verz, such: String;
begin
  such := ExtractFileName(mask);
  verz := ExtractFilePath(mask);
  if verz[length(verz)] <> '\then
    verz := verz + '\';
  if (FindFirst(mask, faAnyFile, search) = 0) then
    repeat
      Form1.ListBox1.Items.Add(verz + search.Name);
    until (FindNext(search) <> 0);
  if (FindFirst(verz + '*.*',faAnyfile,search) = 0) then
    begin
      repeat
        if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') and (search.name <> '..') then
          ScanDirectory(verz + search.Name + '\' + such);
      until (FindNext(search) <> 0);
      FindClose(search);
    end;
end;
Hat jemand einen Vorschlag?


Gruß, dopeline
  Mit Zitat antworten Zitat