FUNCTION check$(dir$)

    IF FILEEXISTS(dir$) THEN
        RETURN IIF$(LEN(WALK$(dir$, 127, ".+", FALSE)), " is NOT empty.", " is empty." )
    ELSE
        RETURN " doesn't exist."
    ENDIF

ENDFUNCTION

dir$ = "bla"
PRINT "Directory '", dir$, "'", check$(dir$)

dir$ = "/mnt"
PRINT "Directory '", dir$, "'", check$(dir$)

dir$ = "."
PRINT "Directory '", dir$, "'", check$(dir$)