project BLF > class TDocumentLink > method CollectionExists


Parameters


icPathinputcharacter
olExistsoutputlogical


Internal usage


BLF
method TDocumentLink.CopyDocumentAttachments
method TDocumentLink.CopyResource
method TDocumentLink.CreateResource


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.