Code:
procedure FeedToListBox(const path, FileExt : String);
var
SearchRec : TSearchRec;
begin
If FindFirst(Path + FileExt, $0000003F - $00000010, SearchRec) = 0 Then
repeat
// Ovde stavis sta da radi (ListBox1.Items.Add)
until FindNext(SearchRec) <> 0;
If FindFirst(Path + '*.*', $00000010, SearchRec) = 0 Then
repeat
If (SearchRec.Attr and $00000010 <> 0) and
(SearchRec.Name <> '.') and
(SearchRec.Name <> '..') and
(Pos(WinDir, SearchRec.Name) = 0) Then
FeedToListBox(Path + SearchRec.Name + '\', FileExt);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
Izlistavanje sadrzaja foldera
