home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus4 / ArexxScripts / psn-dpck.lha / DOpusPakken / Rexx / DirName.DOpus < prev    next >
Encoding:
Text File  |  1995-07-15  |  468 b   |  20 lines
  1. /* Lav et dir med dags dato */
  2.  
  3. Options Results
  4.  
  5. Call AddLib("rexxreqtools.library",0,-30,0)
  6.  
  7. Query ScreenName
  8. PubScreen = Result
  9.  
  10. Date = Date(Ordered)
  11. Parse Var Date YY '/' MM '/' DD
  12.  
  13. Busy On
  14. Call rtgetstring("«"YY"."MM"."DD"»","     Enter New Directory Name:     ","Directory Opus Request","_Ok|_Cancel","RTEz_Flags=EZReqF_CenterText RT_ReqPos=ReqPos_CenterScr RT_PubScrName="PubScreen)
  15. DirName = Result
  16. Busy Off
  17. If RTResult = 0 Then Exit
  18. MakeDir '"'DirName'"'
  19. Exit
  20.