home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / filelist / makedir.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  605 b   |  37 lines
  1. /* makedir.txed */
  2. arg duwindow
  3.  
  4. frompath = getenv("dufromdir")
  5. frompath = 'filelist/stripstar'(frompath)
  6.  
  7. topath = getenv("dutodir")
  8. topath = 'filelist/stripstar'(topath)
  9.  
  10. if duwindow = "FROM" then do
  11.       hailstring = "Make Sub-Directory in "||frompath||"\  Type name below"
  12.       namepath = frompath
  13.       MSG frompath
  14. end
  15. else do
  16.       hailstring = "Make Directory in "||topath"\  Type name below"
  17.       namepath = topath
  18.       MSG topath
  19. end
  20.  
  21.  
  22.  
  23. x=request(200,200,hailstring," ",,,)
  24.  
  25. if x = "" then exit
  26.  
  27. namepath = namepath||x
  28.  
  29. address command makedir namepath
  30.  
  31. "filelist/refresh "duwindow
  32.  
  33.  
  34.  
  35.  
  36. exit
  37.