home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / input / exam15.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  669 b   |  29 lines
  1. Rem * Title  : Directory Handling
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st April 2000
  4. rem ============================================
  5. rem DARK BASIC EXAMPLE PROGRAM 15
  6. rem ============================================
  7. rem This program handles directory creation
  8. rem --------------------------------------------
  9.  
  10. rem Create a directory if not exist
  11. if path exist("mydir")=0
  12.     make directory "mydir"
  13.     print "Directory created.."
  14. endif
  15.  
  16. rem Wait for keypress
  17. print "Press Any Key"
  18. suspend for key
  19.  
  20. rem Remove directory if it exists
  21. if path exist("mydir")=1
  22.     delete directory "mydir"
  23.     print "Directory destroyed.."
  24. endif
  25.  
  26. rem End of program
  27. end
  28.  
  29.