Fråga : Oförmöget att söka tomma mappar

Hi I've fick denna kodifierar nedanfört att I-förmiddagen genom att använda för att söka för sparar det ska though inte do/show något, om mappen är förmiddagen för Empty.

I önskar egentligen att göra något i fungera, när mappen är empty. > för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

" codeBody " " >function SearchFiles (Dir för class= " för ”. ”) Och (sr. Känd <> ”. ”) Därefter om (sr. Attr och faDirectory) >0 börjar därefter SL1.Add (Dir+sr.Name); //TStringlists. SearchFiles (Dir+sr.Name) avsluta börjar annars SL2.Add (sr. Namnge); //TStringlists. avsluta; FindRes: =FindNext (sr); avsluta; FindClose (sr); avsluta; " klar "

Svar : Oförmöget att söka tomma mappar

Kunde du kontrollera det igen, och att ge sig specificerade exempel, när det hoppar over tomma mappar?