home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / utils / wpsam110 / folder.cmd next >
Encoding:
Text File  |  1993-12-01  |  1.0 KB  |  27 lines
  1. /* This little utility creates a folder on your desktop with the */
  2. /* following features:                                           */
  3. /* - not deleteable                                              */
  4. /* - not copyable                                                */
  5. /* - not moveable                                                */
  6. /* - not renameable                                              */
  7. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10. say "-------------------------------------------------------"
  11. say "Enter location for folder to be created (e.g. 'c:\'):"
  12. pull path
  13.  
  14. say "-------------------------------------------------------"
  15. say "Enter name for folder to be created (e.g. 'Users'):"
  16. pull name
  17. say "-------------------------------------------------------"
  18.  
  19. RetCode = SysCreateObject( "WPFolder", name, path, "NODELETE=YES;NOCOPY=YES;NOMOVE=YES;NORENAME=YES;NODROP=NO" )
  20.  
  21. if RetCode then
  22.    say 'Folder created successfully.'
  23. else
  24.    say 'Error occured!'
  25.  
  26. exit(RetCode)
  27.