home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus4 / ArexxScripts / psn-dpck.lha / DOpusPakken / Rexx / AssignAdd.Rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-07-15  |  683 b   |  26 lines
  1. /* Endnu et lorte script... */
  2.  
  3. Options Results
  4. Call AddLib("rexxreqtools.library",0,-30,0)
  5.  
  6. Query ScreenName
  7. PubScreen = Result
  8.  
  9. Status 3;ActiveWin = Result
  10. Status 13 ActiveWin;Path = Result
  11.  
  12. Content = 'Libs'
  13.  
  14. If Right(Path,1) = '/' Then Do
  15.  
  16.     Start = Verify(Reverse(Left(Path,Length(Path)-1)),'/:',M)
  17.     If Start ~= 0 Then Content = SubStr(Path,Length(Path)-(Start-1),Start-1)
  18.  
  19.     End
  20.  
  21. Call rtgetstring(Content,"Enter additional device name for this directory","Directory Opus Request","_Ok|_Cancel","RTEz_Flags=EZReqF_CenterText RT_ReqPos=ReqPos_CenterScr RT_PubScrName="PubScreen)
  22. AssignName = Result
  23.  
  24. If RTResult = 0 Then Exit
  25. Address Command 'C:Assign "'AssignName':" "'Path'" Add'
  26.