Дмитрий77Техник55,

Читаешь невнимательно что тебе пишут.
logbook.vlg -это файл журнала VentaFax.
Если его удалить, то он появится только тогда, когда очередное задание буде выполнено.
Появление этого файла (известно где он лежит и как называется) можно отследить программно.
.
А он точно появится??? А если его не удалять, то там просто будет много строк???
Где можно будет изучить байтовую структуру?
И какие команды отслеживают появление файла, зная точное его местоположение???

Дмитрий77, еще раз здравствуйте.
Как использовать появление файла по указанному пути с помощью функции Dir???
По вашему наставлению проанализировал байты через hex редактор и понял, что мне нужно оценить всего один байт (а именно 1334). Если 1134=0F, тогда "Абонент не отвечает", если 1334=10 - "Абонент занят", если 1334=00 - "Абонент взял трубку".
В принципе мне больше ничего и не надо!!! Можно ли как то обратиться к конкретному байту файла Lookbook.vlg и узнать, какое о принимает значение??? Если да то как?

Дмитрий77, глянь, наверно ошибок куча... Заранее благодарен
Задача такая в зависимости от байта 1335, либо еще раз вызываем абонента, либо другого оповещаем...

[SRC vba]Function ФайлСуществует(logbook As String) As Boolean ' этой функцией отслеживаю
On Error Resume Next
nf = FreeFile
Open logbook.vlg For Input As #nf
If Err Then
ФайлСуществует = False
Else
ФайлСуществует = True
End If
Close #nf
End Function

Sub Send_message()
call Shell("здесь адрес запускаемой программы") ' вызываю нужную мне програмку
End Sub

Sub Send_message1()
Function LogVenta5("С:\.....\service\ logbook.vlg" As String) As LogType5
Dim mas(2000) As String
Dim ChMas(2000) As Integer
Dim LogV As LogType5

Call ФайлСуществует ' Запускаю на оббнаружение файла
If ФайлСуществует=True Then 'Если файл появился тогда
Open "С:\.....\service\ logbook.vlg" For Binary As #1 ' Open file.
i = 1
Do While Not EOF(1) ' Loop until end of file.
mychar = Input(1, #1) ' Get one character.
If EOF(1) Then
Exit Do
End If
mas(i) = mychar
ChMas(i) = Asc(mychar)
i = i + 1
Loop
Close #1 ' Close file.
If ChMas(1334)=0F Then
call Shell ("C:\...\") 'вызов другого абонента
End if
Kill "C:\......\Service\ logbook.vlg" ' Убиваем файл
End Function
End Sub

пардон забыл отделить текст от кода, исправляюсь...
Дмитрий77, глянь, наверно ошибок куча... Заранее благодарен
Задача такая в зависимости от байта 1335, либо еще раз вызываем абонента, либо другого оповещаем...