home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / DIRFUN / TEST.PRG < prev   
Text File  |  1993-11-28  |  341b  |  22 lines
  1.  
  2. cls
  3.  
  4. ? 'File = '
  5. ?? cFile := 'c:\bum\titi\bum\titi\bum\titi.bum'
  6. ?
  7. ? ' Drv = '
  8. ?? pathsplit(cFile,1)  // Get drive
  9. ? 'Path = '
  10. ?? pathsplit(cFile,2)  // Get path 
  11. ? 'Name = '
  12. ?? pathsplit(cFile,3)  // get name
  13. ? ' Ext = '
  14. ?? pathsplit(cFile,4)  // get ext
  15.  
  16. ? mkdirs(pathsplit(cFile,2))
  17.  
  18. ? rmdirs(pathsplit(cFile,2))
  19.  
  20.  
  21.  
  22.