Empty directory: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 695: | Line 695: | ||
<lang Maple> |
<lang Maple> |
||
emptydirectory := proc (dir) |
emptydirectory := proc (dir) |
||
⚫ | |||
local emptydir, directory, numfiles, i, empty; |
|||
⚫ | |||
directory := Array(listdir(dir)); |
|||
numfiles := upperbound(directory); |
|||
for i to numfiles do |
|||
if member(directory[i], emptydir) then |
|||
empty := true; |
|||
else empty := false; |
|||
end if; |
|||
end do; |
|||
return empty; |
|||
end proc; |
end proc; |
||
</lang> |
</lang> |