Question

我有这段代码：

Dim tb As TextBox
Dim matches() As Control
Dim rtb2 As New RichTextBox
For i As Integer = 1 To 60
    matches = Me.Controls.Find("TextBox" & i, True)
    If matches.Length > 0 AndAlso TypeOf matches(0) Is TextBox Then
        tb = DirectCast(matches(0), TextBox)
        rtb2.AppendText(vbNewLine & "--" & vbNewLine & tb.Text)
    End If
    rtb2.savefile("thoikhoabieu.txt", RichTextBoxStreamType.PlainText)
Next

我使用此代码在vb中将文本写入文件，文件位于程序文件夹中，但是当我使用此代码时， thoikhoabieu.txt 文件没有任何内容。那是问题吗？我尝试过在vb中编写文本的替代方法但是失败了。

Answer 1

您只是保存文件但不写入文件。尝试使用Stream Writer。如果您不确定Path使用Directory.GetCurrentDirectory方法并在MsgBox中打印出您的路径

无法写入文本文件

1 个答案: