home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus4 / ArexxScripts / psn-dpck.lha / DOpusPakken / Rexx / DeleteTempDir.Rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-07-15  |  507 b   |  25 lines
  1. /* This script is for use with DirectoryOpus
  2.  
  3. Rexx script to delete T:#? and then change dir to T:
  4.    - If one of the windows starts with T:
  5.  
  6. It's another Detron&Duff Production (02-Sep-94) */
  7.  
  8. Options Results
  9.  
  10. Address Command 'C:Delete T:#? ALL FORCE'
  11.  
  12. Status 3
  13. ActiveWin = Result
  14.  
  15. Status 13 ActiveWin
  16. ActDirName = Result
  17.  
  18. Status 13 1-ActiveWin
  19. NonActDirName = Result
  20.  
  21. If Left(ActDirName,2) = 'T:' Then Status 13 ActiveWin Set 'T:'
  22. If Left(NonActDirName,2) = 'T:' Then Status 13 1-ActiveWin Set 'T:'
  23.  
  24. Exit
  25.