18 lines
382 B
Text
18 lines
382 B
Text
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$)
|