home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ra20set.zip / raplay.cmd < prev    next >
OS/2 REXX Batch file  |  1996-08-19  |  562b  |  18 lines
  1. /* */
  2. call RxFuncAdd 'SysSetObjectData', 'RexxUtil', 'SysSetObjectData'
  3. parse arg fullfilename
  4.  
  5. drive = filespec("drive",fullfilename)
  6. path = filespec("path",fullfilename)
  7. filename = filespec("name",fullfilename)
  8. periodpos=pos(".",filename)
  9. exten=right(filename,length(filename)+1-periodpos)
  10. 'echo off'
  11. 'cls'
  12. drive
  13. 'cd' delstr(path,length(path))
  14. 'del -random-.* > nul'
  15. 'ren ' filename ' -random-' || exten
  16. rc = SysSetObjectData("<RAPLAYER>","PARAMETERS="|| drive || path || "-random-"|| exten)
  17. rc = SysSetObjectData("<RAPLAYER>","OPEN=DEFAULT")
  18.