This should work

lcDir = ...
IF ADIR(laDummy, ADDBS(lcDir) + "*.*","HSD") = 2
  * Empty directory
ENDIFG

>
>I have a cursor with all directories under a given startpoint (d:\unimportantdata)
>as result from an adir command.
>As first step i want to delete all empty directorys, but i don't know how to determine
>that the directory is empty?
>
>How can this be done with VFP 9.2 ?
>