Оптимальный мониторинг изменения файла - VB

Узнай цену своей работы

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

Здравствуйте! Сторонняя программа записывает информацию в txt файл, как можно сделать, что как только Vb обнаруживает изменения в тхт , он читает информацию из файла и делает расчеты и записывает ее в другой тхт файл. Я могу сделать через таймер, что он будет все время открывать тхт файл, но ведь это лишняя нагрузка? Ведь каждые 100 млсек будет открываться файл

Решение задачи: «Оптимальный мониторинг изменения файла»

textual
Листинг программы
Option Explicit
 
Private Sub CheckDateTime()
    Dim d1 As Date: Static d2 As Date
    On Error GoTo m
    d1 = FileDateTime(App.Path & "\" & CStr(Text1.Text))  'дата модификации файла
    If d1 <> d2 Then Call MsgBox("Файл изменился.")
    d2 = d1
m:
End Sub
 
Private Sub Timer1_Timer()
    CheckDateTime
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.5 из 5