home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Supreme Volume 6 #1
/
swsii.zip
/
swsii
/
078
/
PRIVF.ZIP
/
TEST.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1993-01-29
|
424b
|
18 lines
/* */
Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
'@echo off'
RetCode = SysCreateObject( "PrivF", "Mon dossier", "<WP_DESKTOP>", "PASSWORD=benjamin;LOCKED=YES;CLOSELOCK=YES;COMMONPWD=YES;OBJECTID=<MyFolder>")
if RetCode then
say 'Private Folder created'
else do
say 'Error creating Private Folder'
say RetCode
exit(1)
end
say 'A Folder has been created'