VB 脚本文本文件前置

【问题标题】：VB Script Text File PrependVB 脚本文本文件前置
【发布时间】：2009-05-06 14:31:21
【问题描述】：

有人知道如何使用 VB 脚本或 Bat 文件快速将（添加两行新文本）添加到现有文本文件的开头吗？最优雅的解决方案得到了成功。

【问题讨论】：

【解决方案1】：

这个怎么样：

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("test.txt", 1)
ReadAllTextFile =   f.ReadAll
Set f = fso.OpenTextFile("test.txt", 2, True)
f.WriteLine("Blaaa")
f.WriteLine("Blaaaa some more...")
f.Write(ReadAllTextFile)

来源： Tek Tips

【讨论】：

【解决方案2】：

查看 José Basilios 答案以获取代码和对 FSO 的参考。您将使用它。

但是：我不会走ReadAllTextFile = f.ReadAll 路线，因为那可能是几千兆字节（谁知道？）。

代替：

打开一个新文件
写入前置行
从旧文件逐行读取，写入新文件
（关闭两个文件）
删除旧文件
重命名新文件 -> 旧文件

【讨论】：