如何使文件在VB中可写？

Option Explicit

Sub Main()
    Dim filePath As String
    Dim fileContent As String
    Dim fs As FileSystemObject
    Dim file As TextStream

    filePath = "C:\example.txt"
    Set fs = New FileSystemObject

    ' 打开文件并设置为可读写模式
    Set file = fs.OpenTextFile(filePath, ForReading Or ForWriting, True)

    ' 读取文件内容
    fileContent = file.ReadAll
    MsgBox "文件内容: " & vbNewLine & fileContent

    ' 向文件中写入内容
    file.WriteBlankLines(1)
    file.WriteLine("这是一行新写入的内容")

    ' 关闭文件
    file.Close
End Sub