home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 8 Other
/
08-Other.zip
/
wpsam110.zip
/
Folder.cmd
next >
Wrap
OS/2 REXX Batch file
|
1993-12-01
|
1KB
|
27 lines
/* This little utility creates a folder on your desktop with the */
/* following features: */
/* - not deleteable */
/* - not copyable */
/* - not moveable */
/* - not renameable */
Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
say "-------------------------------------------------------"
say "Enter location for folder to be created (e.g. 'c:\'):"
pull path
say "-------------------------------------------------------"
say "Enter name for folder to be created (e.g. 'Users'):"
pull name
say "-------------------------------------------------------"
RetCode = SysCreateObject( "WPFolder", name, path, "NODELETE=YES;NOCOPY=YES;NOMOVE=YES;NORENAME=YES;NODROP=NO" )
if RetCode then
say 'Folder created successfully.'
else
say 'Error occured!'
exit(RetCode)