Как я могу добавить строку между выходным текстом?

Question

Следующий заголовок заменит предыдущий заголовок в той же строке.В результате в текстовом файле в итоге останется только последний заголовок.

Мой следующий VBScript найдет несколько заголовков обновления (= "Заголовок" в сценарии).Каждый «Заголовок» будет показан в выходном файле «c: \ Testing \ testing.txt».Один заголовок будет показан в первой строке за раз.Команда «Далее» вызовет следующий заголовок, который будет показан в той же строке, когда предыдущий заголовок исчезнет.Проще говоря, следующий заголовок заменит предыдущий заголовок в первой строке.В результате в файле останется только последний заголовок.Можно ли добавить пустую строку между двумя заголовками, чтобы все заголовки отображались в файле?

Set Job = CreateObject("Microsoft.Update.Session")
Set Tool = Job.CreateupdateSearcher() 
Set Result = Tool.Search("IsInstalled=0 and IsHidden=0")
For Number = 0 To Result.Updates.Count-1
    Set Title = Result.Updates.Item(Number)

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    outFile = "c:\Testing\testing.txt"
    Set objFile = objFSO.CreateTextFile(outFile, True)
    objFile.Write Title & vbCrLf 
    objFile.Close
Next

Я хочу, чтобы заголовки отображались в разных строках, а не в одной и той же.

Answer 1

Set objFSO  = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("c:\Testing\testing.txt", True)  'True = overwrite existing file
objFile.Close
Set objFile = objFSO.OpenTextFile("c:\Testing\testing.txt", 8)       '8 = For Appending
objFile.WriteLine ("Title")
objFile.WriteLine ("Title2")
objFile.Close

Надеюсь, это поможет!