Иконки в ListBox

[mitiay]

Сделал все по этой статье тык
Все работает отлично!Только вот нужно чтоб сначала были папки а потом файлы.Поджскажите пожалуйста как это можно сделать

[Stilet]

Всмысле? А покажешь код сканирования каталога?

[mitiay]

IdFTP1.List;
for i:=0 to idFTP1.DirectoryListing.Count-1 do
ListBox1.Items.Add(idFTP1.DirectoryListing.Items[i].FileName);

[Stilet]

Ага... Вот оно что.

IdFTP1.List;
for i:=0 to idFTP1.DirectoryListing.Count-1 do
 with idFTP1.DirectoryListing.Items[i] do 
   if ItemType=dirDirectory then ListBox1.Items.Add(FileName);
for i:=0 to idFTP1.DirectoryListing.Count-1 do
 with idFTP1.DirectoryListing.Items[i] do 
   if ItemType=ditFile then ListBox1.Items.Add(FileName);