NotesTimer

2015-03-31T12:26:41Z

Данный пример по таймеру раз в 5 секунд проверяет наличие какого-то файла в папке C:\XML\
Если там есть файл - мессаджбокс, таймер выключается.

Реализация:

В Globals -> Declarations

Dim nTimer As NotesTimer

В Globals

Sub FileExists(Source As NotesTimer)
    Dim path As String, FName As String 
    path = "C:\XML\*.*"
    FName = Dir$(path, 0) 
    If FName<>"" Then 
        Msgbox FName 
        nTimer.Enabled = False
    End If
End Sub

Кнопка, на клик:

Sub Click(Source As Button)
    Set nTimer = New NotesTimer(5)
    Print "ТАЙМЕР ПОИСКА ФАЙЛОВ В ПАПКЕ ВКЛ"
    On Event Alarm From nTimer Call FileExists
End Sub

Форум компьютерной помощи — NotesTimer

NotesTimer