strFirstLine = "This is the new first line in the text file."
然后我们使用以下代码行合并新的第一行、回车-换行（使用 VBScript 常量 vbCrLf）及该文件的现有内容（存储在变量 strContents 中）：
strNewContents = strFirstLine & vbCrLf & strContents
现在剩下的工作就是重新打开 Test.txt（这次是为了写入），然后使用 WriteLine 方法用新文件替换现有内容：
Set objFile = objFSO.OpenTextFile("C:ScriptsTest.txt", ForWriting)
objFile.WriteLine strNewContents
然后我们调用 Close 方法，就像这样，大功告成。好了，文件关闭。嗨，我们只是想要模仿一下夏洛克·福尔摩斯。
说到这，您知道夏洛克·福尔摩斯有一个叫麦克罗夫特的哥哥吗？这是真的。按照推测麦克罗夫特很有天赋，但却因为太懒而没做出什么有趣或有用的事。
嗨，您说这听起来有点耳熟是何用意？没关系；您很可能指的是某个其他的每天编写脚本的专栏作家。
