[Iska]

а мне нужно, чтобы поиском пройтись по всем 520 »

Код:

…
Set tsOut = fso.CreateTextFile("output.txt", True, False)

For Each objFile In objFSO.GetFolder("C:\old").Files
    Set tsIn = objFile.OpenAsTextStream(…)
    …
Next

…