Как определить готовность файла? - VB

Формулировка задачи:

Есть две программы. Первая копирует файлы из каталога 1 в каталог 2, а вторая ждет файл в каталоге 2, и затем копирует в каталог 3. Вопрос: как определить закончилось копирование из каталога 1 в каталог 2?

Решение задачи: «Как определить готовность файла?»

textual
                            Листинг программы 
                        

                            Public Function IsFileLocked(ByRef FileName As String) As Boolean
Dim h As Integer
  On Error GoTo Error_Open
  IsFileLocked = True
  h = FreeFile()
  Open FileName For Append Access Read Write Lock Read Write As #h
  Close #h
  IsFileLocked = False
  Exit Function
Error_Open:
End Function
                        