Время ожидания MSXML2.XMLHTTP время от времени - PullRequest
Новая
       34

Время ожидания MSXML2.XMLHTTP время от времени

0 голосов
/ 27 марта 2019

Попытка определить, существует ли файл на сервере, с помощью запроса MSXML2.XMLHTTP. Это работает большую часть времени, но время от времени происходит сбой с «Тайм-аут операции». Самое большее, когда возникает ошибка, она возвращается к нормальной работе. Есть идеи? 

 Public Function InputFileThere(myUrl As String) As Boolean
 Dim myLine As String
 Dim numTimes As Long
 Dim MyRequest As Object
 Dim urlExists As Boolean
 numTimes = 0
 urlExists = False
 Dim dirName As String
 Dim userName As String
 Dim passWord As String
 userName = “******”
 passWord = “******”
 On Error GoTo errorPart
 startHere:
 Set MyRequest = CreateObject("MSXML2.XMLHTTP")
 MyRequest.Open "HEAD", myUrl, False, userName, passWord
 MyRequest.send
 If MyRequest.StatusText = "OK" Then urlExists = True
 GoTo finHere
 errorPart:
 Set MyRequest = Nothing
 numTimes = numTimes + 1
 myLine = " Right now " & Format(Now(), "hh:mm:ss") & " there was an error , numTimes = " &    CStr(numTimes) & " Err Description = " & Err.Description
Application.StatusBar = myLine
Application.Wait (Now() + TimeValue("00:01:00"))
GoTo startHere
finHere:
InputFileThere = urlExists
Set MyRequest = Nothing
End Function
...