Scripting 工具或vbscript将硬编码文本添加到多个文件的顶部？

是否有人知道可以添加预定义文本的工具，如以下4行：

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

目录中的所有.txt文件：“C:/test/”

我见过append函数，但它们只添加到底部，不确定添加到文件顶部的方法

---

我的操作系统是Win XP。

是一个免费实用程序，可以调整多个源文件的标题。它是为Windows编写的，需要.NET Framework 2.0才能运行。

还没有测试过这一点，但它应该会让您走上正确的道路

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

---

您还可以看到：Set fld=FSO.GetFolder（“C:\test\”）-对于fld.Files中的每个fil，很抱歉这是一个有害程序，但是fld.Files也是必需的。慢慢地到达那里。。。当我在文本编辑器中运行它时，它会给我一个错误：“（17，6）Microsoft VBScript编译错误：预期语句结束”，但如果我从excel运行它，它就可以了？？只是要做下一个而不是下一个