помогали здесь добрые людис мониторингом файла - расширить бы.

[zander]

Вот код (ниже) который мониторит конкретный файл, можно ли как то сделать что бы параллельно осуществлялся мониторинг двух файлов?
(http://www.programmersforum.ru/showt...ghlight=zander)

Public Const ИмяФайла = "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ.txt"
Public РазмерФайла As Long, ПоискИзмененийВременноОтключён As Boolean
Public Const ВременнойИнтервалМеждуПроверками = 2

Sub СлежениеЗаФайлом()
Do While True ' бесконечный цикл
If Not ПоискИзмененийВременноОтключён Then
НовыйРазмерФайла = CreateObject("scripting.filesystemo bject").GetFile(ИмяФайла).Size
If НовыйРазмерФайла > РазмерФайла Then ОбработкаФайла: РазмерФайла = НовыйРазмерФайла
End If
t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend ' пауза
Loop
End Sub

Sub ОбработкаФайла()
Application.ScreenUpdating = False
Workbooks.OpenText Filename:=ИмяФайла, DataType:=xlDelimited, Comma:=True
ActiveWorkbook.Worksheets(1).Cells. Copy ThisWorkbook.Worksheets(1).[a1]
ActiveWorkbook.Close False
Application.ScreenUpdating = True

ПоискИзмененийВременноОтключён = True
' здесь запускается Ваш макрос
' пока он работает, изменения в текстовом файле не отслеживаются
ПоискИзмененийВременноОтключён = False
End Sub

[EducatedFool]

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

Public Const ИмяФайла1 = "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ 1.txt"
Public Const ИмяФайла2 = "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ 2.txt"
Public РазмерФайла1 As Long, РазмерФайла2 As Long, ПоискИзмененийВременноОтключён As Boolean
Public Const ВременнойИнтервалМеждуПроверками = 2

Sub СлежениеЗаФайлом()
    Do While True    ' бесконечный цикл
        If Not ПоискИзмененийВременноОтключён Then
            НовыйРазмерФайла1 = CreateObject("scripting.filesystemobject").GetFile(ИмяФайла1).Size
            If НовыйРазмерФайла1 > РазмерФайла1 Then ОбработкаФайла (ИмяФайла1): РазмерФайла1 = НовыйРазмерФайла1
            
            НовыйРазмерФайла2 = CreateObject("scripting.filesystemobject").GetFile(ИмяФайла2).Size
            If НовыйРазмерФайла2 > РазмерФайла2 Then ОбработкаФайла (ИмяФайла2): РазмерФайла2 = НовыйРазмерФайла2
        End If
        t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend    ' пауза
    Loop
End Sub

Sub ОбработкаФайла(ByVal ИмяФайла As String)
    Application.ScreenUpdating = False
    Workbooks.OpenText Filename:=ИмяФайла, DataType:=xlDelimited, Comma:=True
    ActiveWorkbook.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).[a1]
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True

    ПоискИзмененийВременноОтключён = True
    ' здесь запускается Ваш макрос
    ' пока он работает, изменения в текстовом файле не отслеживаются
    ПоискИзмененийВременноОтключён = False
End Sub

Для мониторинга большего количества файлов имеет смысл полностью переделать макрос.