макрос мониторинга файла не хочет работать долго

[zander]

приведенный ниже макрос работает корректно, но не долго. Если в течение нескольких часов размеры файлов Alex и/или Alex1 не меня.тся, то макрос перестает отрабатывать изменения котрые спустя несколько часов всетаки меняются по размеру. В чем может быть причина?

Const ИмяФайла1 = "C:\input\Alex.csv"
Const ИмяФайла2 = "C:\input\Alex1.csv"

Public РазмерФайла1 As Long, РазмерФайла2 As Long, ПоискИзмененийВременноОтключён As Boolean
Const ВременнойИнтервалМеждуПроверками = 2

Public Sub СлежениеЗаФайлом()
On Error Resume Next


If ПоискИзмененийВременноОтключён = True Then Exit Sub


Do While True ' бесконечный цикл
ПоискИзмененийВременноОтключён = False


НовыйРазмерФайла1 = CreateObject("scripting.filesystemo bject").GetFile(ИмяФайла1).Size
If НовыйРазмерФайла1 > РазмерФайла1 Then DoFile1 (ИмяФайла1): РазмерФайла1 = НовыйРазмерФайла1

НовыйРазмерФайла2 = CreateObject("scripting.filesystemo bject").GetFile(ИмяФайла2).Size
If НовыйРазмерФайла2 > РазмерФайла2 Then DoFile2 (ИмяФайла2): РазмерФайла2 = НовыйРазмерФайла2



t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend ' пауза


Loop

End Sub

Public Sub DoFile1(ByVal ИмяФайла1 As String)

If Worksheets("Robot").Range("F21").Va lue > 0 And Worksheets("Robot").Range("D21").Va lue = "ON" Then Call robottt
End Sub

Public Sub DoFile2(ByVal ИмяФайла2 As String) ' включаем перехват

If Worksheets("Robot").Range("D21").Va lue = "ON" Then Call Sheets("Robot").s2
End Sub

[Skif-F]

Убери команду On Error Resume Next и посмотри какие ошибки будут вылетать

[Владимир.]

Процессор занят на 100%
http://www.vbnet.ru/forum/show.aspx?id=30025

[zander]

В целом нет, процессор занят примерно на 50% лишь временами загрузка прыгает до 100% и потом опять опускается до 50

[doober]

Попробуйте такой вариант.Через таймер запускаете PROVERKA
и никакаких циклов

Const ИмяФайла1  As String = "C:\input\Alex.csv"
Const ИмяФайла2  As String = "C:\input\Alex1.csv"

 Sub PROVERKA()

Static Raz_File1 As Double
Static Raz_File2 As Double
If R_file(ИмяФайла1) > Raz_File1 Then
  Raz_File1 = R_file(ИмяФайла1)
  'Макрос1
End If
If R_file(ИмяФайла2) > Raz_File2 Then
Raz_File2 = R_file(ИмяФайла2)
 'Макрос2
End If


End Sub
Function R_file(F_name As String) As Double
On Error Resume Next
R_file = FileLen(F_name)
If Err.Number = 0 Then Exit Function
R_file = 0
End Function

[zander]

спасибо, но вот что то прикрутил я его к макросу, а он не работает... что то не так с таймером?
Const ИмяФайла1 As String = "C:\input\Alex.csv"
Const ИмяФайла2 As String = "C:\input\Alex1.csv"

Sub PROVERKA()

Static Raz_File1 As Double
Static Raz_File2 As Double
If R_file(ИмяФайла1) > Raz_File1 Then
Raz_File1 = R_file(ИмяФайла1)
'Макрос1
Worksheets("Лист1").Range("A1").Val ue = "ON"

End If
If R_file(ИмяФайла2) > Raz_File2 Then
Raz_File2 = R_file(ИмяФайла2)
'Макрос2
Worksheets("Лист1").Range("A2").Val ue = "ON"
End If


End Sub
Function R_file(F_name As String) As Double
On Error Resume Next
R_file = FileLen(F_name)
If Err.Number = 0 Then Exit Function
R_file = 0
End Function

Public Sub StartMonitoring()
Application.OnTime Now + TimeValue("00:00:02"), Worksheets("Лист1").PROVERKA
End Sub

Public Sub Monitoring()
StartMonitoring

End Sub

[doober]

Все верно,код не правильный у таймера,он 1 раз только при старте сработает.
Сейчас напишу правильный

Sub Start()
Application.OnTime Now + TimeValue("00:00:02"), "Start"

Worksheets("Лист1").PROVERKA

DoEvents
End Sub

[zander]

ага, ага... пока работает, сегодня на ночь оставим. А как то можно индикатор работы макроса (любой) прикрутить и как можно остановить работу с помощью кнопки?

[doober]

Ячейка А1 будет определять останов

Sub Start()
DoEvents

If Sheets("Лист1").Range("A1") = False Then Exit Sub

Application.OnTime Now + TimeValue("00:00:02"), "Start"

Application.StatusBar = Now 'Или в процедуру макроаса вставляете эту строку,и выводите что хотите,хоть размер файла
Worksheets("Лист1").PROVERKA
End Sub

[zander]

Ночь макрос отработал без сбоев! Спасибо!
Скажите, этот макрос ограничен количеством файлов за которыми он может следить или если размножить соответствующую часть макроса можно мониторить 10 - 15 файлов?