работа с TShellListView и TShellTreeView, переход по папкам Опции

[kr3v3tkus]

подскажите плз как осуществляется работа с TShellListView и TShellTreeView, конкретнее - необходимо указать директорию, у которой в нутри есть папки, для каждой из них сделать проверку SelectedFolder.SubFolders, если подпапок нет - совершить какое-либо действие, если же есть - то уйти вниз ещё на уровень и снова совершить предыдущее действие. Тоесть например:

в папке Black Lagoon ещё 2 папки в каждой из которых уже нет подпапок
а в папке !new1 есть ещё подпапки, в которых тоже могут быть подпапки
Подскажите или киньте ссылку на толковый мануал плиз

[volvo]

почему у меня не считается эта папка?

Что имеется в виду "не считается"? Папка появляется в Гриде, проверил. Количество видео-файлов в ней тоже появляется. Все ее подпапки тоже появляются, тоже проверил. Картинок не вижу никаких вообще, что именно у тебя "сдвигается" - непонятно.

Кстати,
1.

if
  (pos('.avi', SearchRec.Name))or(pos('.mkv', SearchRec.Name))or(pos('.VOB', SearchRec.Name)) or
  (pos('.ogm', SearchRec.Name))or(pos('.mp4', SearchRec.Name)) <> 0 then inc(vcount);

не совсем корректное условие. В данном случае оно, возможно, как раз и делает, что нужно, но вообще подобного следует избегать...

2.

if (pos('.avi', SearchRec.Name) <> 0) ...

все-таки я бы записал:

if UpperCase(ExtractFileExt(SearchRec.Name)) = 'AVI'

, мало ли, будет записано в другом регистре и все, не найдутся файлы...

3. Однотипные действия для разных расширений очень просто выносятся в отдельную процедуру...