1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: NotesTimer

Данный пример по таймеру раз в 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

Поделиться