home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cwmmc020.zip / CWAudio-0_2_0-eng / setFolder.cmd < prev   
OS/2 REXX Batch file  |  2002-01-26  |  504b  |  22 lines
  1. /* rexx -  Change the details and sort class
  2.    of a folder to use CWAudio instead of WPFileSystem */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. theFolder=ARG(1)
  8. theFolder=STRIP(TRANSLATE(theFolder,' ','"'))
  9. SAY theFolder
  10.  
  11. rc=SysSetObjectData(theFolder,'DETAILSCLASS=CWAudio;SORTCLASS=CWAudio')
  12. IF rc=0 THEN DO
  13.     SAY 'Cannot set the details and sort class.'
  14.     '@PAUSE'
  15.     EXIT
  16. END
  17.  
  18. SAY 'Detailsclass and sort class for folder changed.'
  19. '@PAUSE'
  20. EXIT
  21.  
  22.