[решено] Открывать файл пока не откроется

[Morpheus]

Всем привет!

Есть скрипт читающий данные из файла с заданным интервалом. Запущен постоянно, переделать этот момент нельзя.
iTimerID = window.SetInterval("GetData", 5000)
<...>
Set objFile = objFSO.OpenTextFile("путь\файл.log", 1)
Всё хорошо пока файл на локальной машине, при выходе из сна проблем тоже нет.
Если файл в сети, то тоже всё работает, но только до сна. При выходе из спячки данные перестают обновляться. Логично предположить, что некоторое время (несколько секунд) сетка не доступна и файл по этой причине не читается.
Как устроить повтор попыток чтения пока файл не прочитается (задать некий таймаут)?

Спасибо!

[Iska]

А что говорит сразу после выхода из сна простая проверка существования файла:

If objFSO.FileExists("путь\файл.log") Then
MsgBox "File [путь\файл.log] found"
Else
MsgBox "File [путь\файл.log] not found"
End If

Если сразу — не найден, а спустя время — доступен, то, может, поскольку интервал у Вас небольшой, при недоступности файла просто пропускать чтение до следующего вызова обработки:
Sub GetData()
…
If objFSO.FileExists("путь\файл.log") Then
Set objFile = objFSO.OpenTextFile("путь\файл.log", 1)
…
…
objFile.Close
End If
…
End Sub
?

[Morpheus]

сразу — не найден, а спустя время — доступен »
:yes:
Спасибо большое! Пришлось повозиться, всё заработало когда добавил:
If objFSO.FileExists("путь\файл.log") Then
Set objFile = objFSO.OpenTextFile("путь\файл.log", 1)
…
…
objFile.Close
Else
Data = "--- --- --- --- ---"
End If