Set fso = CreateObject("Scripting.FileSystemObject")

' Получаем сведения о файлах, находящихся в данной папке

Set fld = fso.GetFolder(".")

Set objTextFile2 = objFSO.OpenTextFile("c: emp mp", ForWriting, True)

For Each fi In fld.Files

If fi.name<>"excel.vbs" AND fi.name<>"result.xls" Then

' Файл сценария и файл отчета не открывать

Set readPCFile = objFSO.OpenTextFile(fi, ForReading)

i = 0

s.Cells(n, 1) = fi.name ' Имя файла – это имя компьютера

Do Until readPCFile.AtEndOfStream

strNextLine = readPCFile.Readline

  i = i + 1

  ' Первые 6 строк в файлах отчетах – это шапка,

  ' экспортировать не нужно

  If i>6 Then 

    s.Cells(n, 2) = strNextLine

   objTextFile2.WriteLine (strNextLine)

    n = n + 1

    End If

  Loop

 readPCFile.Close

End If

Next

objTextFile2.close

f=3

Set objTextFile2 = objFSO.OpenTextFile("c: emp mp", ForReading)

Do Until ObjTextFile2.AtEndOfStream

 strNextLine = objTextFile2.Readline

 ' ищем вхождения имени приложения

 Set fc = s1.Columns("A").Find(strNextLine)

 If  fc Is Nothing  Then ' не нашли, тогда добавляем