18 lines
630 B
Plaintext
18 lines
630 B
Plaintext
IF FNisdirectoryempty("C:\") PRINT "C:\ is empty" ELSE PRINT "C:\ is not empty"
|
|
IF FNisdirectoryempty("C:\temp") PRINT "C:\temp is empty" ELSE PRINT "C:\temp is not empty"
|
|
END
|
|
|
|
DEF FNisdirectoryempty(dir$)
|
|
LOCAL dir%, sh%, res%
|
|
DIM dir% LOCAL 317
|
|
IF RIGHT$(dir$)<>"\" dir$ += "\"
|
|
SYS "FindFirstFile", dir$+"*", dir% TO sh%
|
|
IF sh% = -1 ERROR 100, "Directory doesn't exist"
|
|
res% = 1
|
|
REPEAT
|
|
IF $$(dir%+44)<>"." IF $$(dir%+44)<>".." EXIT REPEAT
|
|
SYS "FindNextFile", sh%, dir% TO res%
|
|
UNTIL res% == 0
|
|
SYS "FindClose", sh%
|
|
= (res% == 0)
|