home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: WPS_PM
/
WPS_PM.zip
/
treefldr.zip
/
treefldr.cmd
next >
Wrap
OS/2 REXX Batch file
|
1997-02-10
|
759b
|
33 lines
/* TREEFLDR.CMD * (c) 1997 * Alessandro Cantatore * Team OS/2 Italy */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
parse arg filename
if filename = "" then
call showusage
files. = ""
rc = SysFileTree(filename, "files", "O")
filename = files.1
say filename
if filename = "" then do
say " Unable to access "filename
exit 2
end /* do */
if SysSetObjectData(filename, "SHOWALLINTREEVIEW=YES") then
say " "filename" succesfully updated!"
else
say " Unable to update "filename
exit
showusage:
say " TREEFLDR.CMD enable OS/2 WARP 4 folders to show both directories"
say " and files when in tree view"
say " Usage:"
say " TREEFLDR [drive][path]dirName"
exit