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

我只是想检查一个文件是否已经存在于一个共享点。 我用了一个布尔函数，开始工作完美，但由于短期的periode它不再工作了！

这是我写的：

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 

这里的错误在这一点上。 .send我不明白为什么，我没有find另一个解决scheme来检查文件是否存在，因为该文件是在SharePoint站点。