>>Hmmmmm...thanks to all of you for the feedback.
>>
>>So, a DirectoryIsEmpty() function would be something like this:
>>
>>LPARAMETERS tcDir
>>RETURN ADIR(laTemp, tcDir, "D") < IIF(OCCURS("\", tcDir) = 1, 1, 3)
>>
>>where tcDir ends in "\*.*"
>>
>>Is there a more elegant construct or dedicated function available?
>>
>>-mark
>>
>>=======================
>
>
>Something like
>

>function DirectoryIsEmpty(tcDir)
>
>local aa[1] , n
>n = adir(aa, addbs(m.tcDir) + '*.*', 'DHS')
>
>return  empty(m.n) or ((m.n == 2) and (aa[1,1]=='.') and (aa[2,1] == '..') )
>