如果sharepoint站点上存在文件，请通过VBA进行检查

Question

我只想检查一个文件是否已存在于sharepoint中。我使用了一个布尔函数，它在开始时工作得很好，但是由于它的周期很短，所以它不再起作用了！

这就是我写的：

 Public Function checkFile(URLStr As String) As Boolean

Dim oHttpRequest As Object

If Len(Trim(URLStr)) = 0 Then checkFile = Empty: Exit Function
Set oHttpRequest = CreateObject("MSXML2.XMLHTTP.6.0")
With oHttpRequest
    .Open "GET", URLStr, False ', [UserName], [Password]
    .setRequestHeader "Cache-Control", "no-cache"
    .setRequestHeader "Pragma", "no-cache"
    .send
End With
If oHttpRequest.Status = 200 Then
    checkFile = True
Else
    checkFile = False
End If
Set oHttpRequest = Nothing

End Function

这就是错误。的。发送 我不明白为什么，我找不到另一个解决方案来检查文件是否存在，因为该文件位于sharepoint站点。