How to determine if a designated directory is empty

Function ISemptyDir ($ PATH)

{

$ DH = OpenDir ($ PATH);

While (false! == ($ f = readdir ($ DH))))))

{

IF ($ F! = "." && $ f! = "..")

Return True;

}

Return False;

}