project BLF > class TDocumentLink > method CollectionExists
Parameters
icPath | input | character | |
olExists | output | logical | |
Internal usage
BLF
program code (program1/tdocumentlink.p)
<M-96 run Connect () in TDocumentLink>
if vcWebdavResponse <> ""
then return.
vcommand = "PROPFIND " + icPath + " HTTP/1.0" + "~nDepth: 0~n~n".
set-size (vmSend) = length (vcommand,"RAW") + 1.
put-string (vmSend,1) = vcommand.
vhWebdavSocket:write (vmSend,1,get-size(vmSend)).
wait-for read-response of vhWebdavSocket pause 60.
olExists = index (vcWebdavResponse,"<resourcetype><collection/></resourcetype>") > 0.
vcWebdavResponse = "".
finally:
set-size (vmSend) = 0.
if vhWebdavSocket <> ?
then do:
vhWebdavSocket:disconnect ().
delete object vhWebdavSocket.
vhWebdavSocket = ?.
end.
end finally.