Question

Does anyone know a tool that can add predefined text such as the following 4 lines:

"My disclaimer:
For legal reasons -
1. Don't blah...
2. You must..."

to all .txt files in a directory: “C:/test/”

I have seen append functions but they only add to the bottom, not sure of a method for adding to the top of the file.

My OS is Win XP.

Answer 1

Haven’t tested this, but it should put you on the right track.

Dim FSO, txs, fld, fil, content
Set FSO = CreateObject("Scripting.FileSystemObject")

Set fld = FSO.GetFolder("C:\test\")
For Each fil In fld.Files
    If Right(fil.Name, 3) = "txt" Then

        Set txs = fil.OpenAsTextStream(1) ' 1 = for reading
        content = txs.ReadAll
        txs.Close

        Set txs = fil.OpenAsTextStream(2) ' 2 = for writing
        txs.Write "MyDisclaimer:" & vbCrLf & "stuff" & content
        txs.Close

    End If    
Next