Файл: открыт или закрыт

[Gfif21]

Необходимо, чтобы проект копировал один файл в другой. Исходный файл время от времени открывается для обновления другой программой. Когда файл открыт, проект выдает ошибку - Permission denied. Соответственно, прежде, чем копировать файл, необходимо удостовериться, что файл закрыт. Как это сделать?

[A.A.Z.]

Код: Выделить всё

Function CheckForFile() As Boolean
On Error GoTo ErrHandle
Open "C:\File.txt" For Input As #1: Close #1
CheckForFile = True
Exit Sub
ErrHandle: CheckForFile = False
End Function

Из своей процедуры вызываешь:

Код: Выделить всё

Sub AProcedure()
If CheckForFile Then
'файл готов
Else
'файл не готов
End If
End Sub

[Gfif21]

Пасиба, только вот есть маленький вопросик:

Код: Выделить всё

Sub AProcedure()
If CheckForFile Then
'файл готов
Else
'файл не готов
End If
End Sub

А вторую строчку именно так писать или вот так:

If CheckForFile=True Then

[Tarik]

А пофиг, как писать