Zitat von
DeddyH:
Na, den ersten Teil hast Du ja schon (FindFirst/FindNext). Zur StringListe schau Dir mal die Property Sorted und die Methode Add() an.
ich habe eine
FileListBox auf mein form angelegt. Die Videos-Datei-Namen werden damit drauf aufgelistet und sortiert .
Aber trotzdem ist nicht gut, da ich die Videos in einem Ordner separat anlegen möchte und das Objekt FileListBox hat leider bei mir keine Eigenschaft von "Directory" wo man den ordnernamen eintragen kann.
Mit dem Code werden Ordner gefunden und aufgelistet.
Ich möchte aber Keine Ordner sondern Files auflisten :
Delphi-Quellcode:
procedure ListeDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, sr) = 0 then
begin
repeat
if ((sr.Attr and faDirectory) = faDirectory) and
(sr.Name <> '.') and
(sr.Name <> '..') then
begin
FileList.Add(sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListeDir('C:\Windows\', ListBox1.Items);
end;
<>