/* Rexx */

Object_name = 'New Folder'
Icon = Stream( 'C:\OS2\Rexx.ico', 'C', 'Query Exists' )
If Icon \= '' then Icon = 'IconFile=' || Icon

Call SysCreateObject 'WPFolder', Object_name, '<WP_DESKTOP>', ,
                     'ObjectID=<RXX_FOLDER>' || ';' || Icon, 'Replace'
