Cuestión : Incapaz de buscar carpetas vacías

Hola, tengo este código debajo de ése que estoy utilizando para buscar para los archivos aunque no do/show cualquier cosa si la carpeta es Empty.

I que quiere realmente hacer algo en la función cuando la carpeta es empty. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
>function notpretty SearchFiles (Dir " del class= " del id= " codeSnippet836298 del 
 conocido “.") y (senior. <> conocido “. .") entonces
      si (senior. Attr y) >0 faDirectory entonces comienzan
        SL1.Add (Dir+sr.Name); //TStringlists.
        SearchFiles (Dir+sr.Name)
      el extremo comienza
        SL2.Add (senior. Nombre); //TStringlists.
      extremo;
      FindRes: =FindNext (senior);
    extremo;
  FindClose (senior);
extremo;
class= del

Respuesta : Incapaz de buscar carpetas vacías

¿Podría usted comprobarlo otra vez y dar ejemplo detallado cuando salta carpetas vacías?
Otras soluciones  
 
programming4us programming4us