Вопрос : Неспособно для того чтобы искать пустые скоросшиватели

Hi, я получаю это Кодего под тем, котор я использую для того чтобы искать для архивов хотя он не будет do/show что-нибыдь если скоросшиватель будет Empty.

I am реально сделать что-то в функции, то когда скоросшиватель будет empty. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
>function SearchFiles " class= " id= " codeSnippet836298 
 «.") и (старший. Названное <> «. .") после этого
      если (старший. Attr и faDirectory) >0 после этого начинают
        SL1.Add (Dir+sr.Name); //TStringlists.
        SearchFiles (Dir+sr.Name)
      конец еще начинает
        SL2.Add (старший. Имя); //TStringlists.
      конец;
      FindRes: =FindNext (старший);
    конец;
  FindClose (старший);
конец;
class=

Ответ : Неспособно для того чтобы искать пустые скоросшиватели

Smogли вы проверять его снова и давать детальный пример когда они прыгнут пустые скоросшиватели?
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us