/* Rexx */

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

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