![[About]](r:\html\lsrxabout.gif)
![[Toc]](r:\html\lsrxtoc.gif)
0.9b (c) 1995 Peter Childs
The function performs a close on an opened file.
Syntax
MyRc = NetDelete(NETFILECLOSE, SrvName, FileId)
Parameters
The parameters specified are:
SrvName The server computer name on which the file is opened
FileId The numeric file identifier of the file to be closed
Note
The server computer name can be specified as '' for a local server.
Example
/* Close an opened file on a server */
if RxFuncQuery('NetDelete') <> 0 then do
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs
end
NETFILECLOSE = 220
SrvName = '\\ILIDC'
FileId = 3
myRc = NetDelete(NETFILECLOSE, SrvName, FileId)
if myRc <> '0' then do
say 'Got error from NetDelete() ' myRc
exit 9
end
else do
say 'File closed successfully'
say
end
exit 0
Example Output
File closed successfully
Inf-HTML End Run - Successful