home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / treefldr.zip / treefldr.cmd next >
OS/2 REXX Batch file  |  1997-02-10  |  759b  |  33 lines
  1. /*  TREEFLDR.CMD  *  (c)  1997    * Alessandro Cantatore * Team OS/2 Italy */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. parse arg filename
  7.  
  8. if filename = "" then
  9.    call showusage
  10.  
  11. files. = ""
  12. rc = SysFileTree(filename, "files", "O")
  13. filename = files.1
  14. say filename
  15. if filename = "" then do
  16.    say " Unable to access "filename
  17.    exit 2
  18.    end  /* do */
  19.  
  20. if SysSetObjectData(filename, "SHOWALLINTREEVIEW=YES") then
  21.    say " "filename" succesfully updated!"
  22. else
  23.    say " Unable to update "filename
  24. exit
  25.  
  26. showusage:
  27.    say " TREEFLDR.CMD enable OS/2 WARP 4 folders to show both directories"
  28.    say " and files when in tree view"
  29.    say " Usage:"
  30.    say " TREEFLDR [drive][path]dirName"
  31. exit
  32.  
  33.