1. Is Floppy Blank - Results
The following code seems to work, and even catches hidden files... If
anybody wants to confirm, I'd appreciate it.
And thanks for all your help!
--------------------Floppy_Is_Blank function demo
include file.e
include get.e
function Floppy_Is_Blank()
return atom( dir( "a:*.*") )
end function
procedure main()
object junk
clear_screen()
if Floppy_Is_Blank() then
puts(1, "Floppy is blank.\n")
else
puts(1, "Floppy is not blank.\n")
end if
junk = wait_key()
end procedure
main()
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
