/* ****************************************************** */
/* Program: OF.CMD                                        */
/* Purpose: Open a WPS folder for the current directory   */
/* ****************************************************** */

Call RxFuncAdd "SysOpenObject", "RexxUtil", "SysOpenObject"
Parse Arg Directory .
If Directory="" then Directory=Directory()
View="ICON"

call SysOpenObject Directory, View, 1
call SysOpenObject Directory, View, 1 

Exit