OpenEuphoria

Is Floppy Blank - Results

• Posted by ck lester <cklester at YAHOO.COM> Aug 30, 2000
• 481 views

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