FSO写空白线不能正常工作

Question

有谁知道为什么

  .writeblanklines 3 

不起作用？我已经尝试了很多不同的方法，它似乎总是覆盖文本文件中的行。

    Private Sub CommandButton3_Click()

Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fsofolder As Folder
Set fsofolder = fso.GetFolder("U:\files")
Dim file1 As file
Dim a As Integer

Dim b As String
b = "U:\files\" & ListBox1.Value

fso.OpenTextFile(b, ForWriting).WriteBlankLines 3
fso.OpenTextFile(b, ForWriting).WriteLine (TextBox3.Value)

Answer 1

请参阅：http://msdn.microsoft.com/en-us/library/aa265347(v=vs.60).aspx

如果要附加内容，则在打开文件时使用ForAppending。