помогите макрос остановить

[zander]

есть такой макрос который мониторит два файла и запускает два макроса в зависимости от результатов мониторнга

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

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

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

If ПоискИзмененийВременноОтключён = False Then Application.StatusBar = Now & "Cheking file"
If ПоискИзмененийВременноОтключён = True Then Application.StatusBar = Now & "Cheking file Stoped"
Do While True ' бесконечный цикл
If Not ПоискИзмененийВременноОтключён Then
НовыйРазмерФайла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
End If
t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend ' пауза
Loop

End Sub

Запускается этот макрос вот так
Public Sub Startrobot()
If Not ПоискИзмененийВременноОтключён Then СлежениеЗаФайлом
End Sub

а остановить его как... в определенное время суток?

[EducatedFool]

а остановить его как... в определенное время суток?

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

    If ПоискИзмененийВременноОтключён = False Then Application.StatusBar = Now & "Cheking file"
    If ПоискИзмененийВременноОтключён = True Then Application.StatusBar = Now & "Cheking file Stoped"
    Do While True    ' бесконечный цикл
        If Not ПоискИзмененийВременноОтключён Then
            НовыйРазмерФайла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
        End If
        t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend    ' пауза
        If Time > "22:28:00" Then Exit Do ' укажите здесь нужное время
    Loop

End Sub

[zander]

If Time > "22:28:00" Then Exit Do ' укажите здесь нужное время
Loop

End Sub
[/code][/QUOTE]

Спасибо!
А для кнопки какую можно команду указать для остановки?

[EducatedFool]

Попробуйте так:

Const ИмяФайла1 = "C:\input\Alex.txt", ИмяФайла2 = "C:\input\Alex1.txt"
Public РазмерФайла1 As Long, РазмерФайла2 As Long, ПоискИзмененийВременноОтключён As Boolean
Const ВременнойИнтервалМеждуПроверками = 2

Public Sub СлежениеЗаФайлом()
    On Error Resume Next
    Application.StatusBar = Now & "Cheking file" & IIf(ПоискИзмененийВременноОтключён, " Stopped", "")

    Do While True    ' бесконечный цикл
        If Time > "22:28:00" Or ПоискИзмененийВременноОтключён Then Exit Do    ' укажите здесь нужное время

        НовыйРазмерФайла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 Startrobot()    ' Запускается этот макрос вот так
    If Not ПоискИзмененийВременноОтключён Then СлежениеЗаФайлом
End Sub

Public Sub Stoprobot()    ' А останавливается - так
    ПоискИзмененийВременноОтключён = True
End Sub

[zander]

Public Sub Stoprobot() ' А останавливается - так
ПоискИзмененийВременноОтключён = True
End Sub[/code][/QUOTE]

Не хочет он так останавливаться