Visual studio 我必须如何编写这段代码而不出错

我想编写代码，将某些内容写入文件，但它说它不能。我怎样才能解决这个问题？请帮忙

Imports System.IO

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles  MyBase.Load
    yes.Visible = False
    no.Visible = False
    Label1.Visible = False
    ProgressBar1.Visible = False
    Label2.Visible = False
    Label3.Visible = False
    TextBox1.Visible = False
    TextBox2.Visible = False
    apply.Visible = False
    back.Visible = False
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Button1.Visible = False
    yes.Visible = True
    no.Visible = True
    Label1.Visible = True
    setings.Visible = False

End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles yes.Click
    Label1.Text = "dowloading"
    no.Visible = False
    yes.Visible = False

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles no.Click
    yes.Visible = False
    no.Visible = False
    Label1.Visible = False
    Button1.Visible = True
    setings.Visible = True
End Sub

Private Sub setings_Click(sender As Object, e As EventArgs) Handles setings.Click
    Label2.Visible = True
    Label3.Visible = True
    TextBox1.Visible = True
    TextBox2.Visible = True
    apply.Visible = True
    back.Visible = True
    Button1.Visible = False
    setings.Visible = False
End Sub

Private Sub back_Click(sender As Object, e As EventArgs) Handles back.Click
    Label2.Visible = False
    Label3.Visible = False
    TextBox1.Visible = False
    TextBox2.Visible = False
    apply.Visible = False
    back.Visible = False
    Button1.Visible = True
    setings.Visible = True
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub apply_Click(sender As Object, e As EventArgs) Handles apply.Click
    Dim forgepath = TextBox1.Text
    Dim savefolder = Path.Combine(TextBox2.Text, "crazydolphininstaller")
    Directory.CreateDirectory(savefolder)
    Dim configfolder = Path.Combine(savefolder, "config")
    Directory.CreateDirectory(configfolder)
    Dim configfile = Path.Combine(configfolder, "config.txt")
    File.Create(configfile)
    Using writer = New StreamWriter(configfile)
        writer.WriteLine(forgepath)
        writer.WriteLine(savefolder)

    End Using
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

End Sub
End Class

---

Create创建文件并返回为您打开的文件流。因此，以下StreamWriter发现文件已打开，无法写入。只需删除文件。创建行并使用StreamWriter构造函数，该构造函数允许覆盖文件（如果存在）

Private Sub apply_Clicksender As Object，e As EventArgs Handles apply。单击 Dim forgepath=TextBox1.Text Dim savefolder=Path.CombineTextBox2.Text，crazydolphininstaller Dim configfolder=Path.Combinesavefolder，config “我只打了一次电话。将创建所有缺少的文件夹 Directory.CreateDirectoryconfigfolder Dim configfile=Path.Combineconfigfolder，config.txt “不需要 'File.Createconfigfile '将False作为第二个参数传递，以覆盖文件（如果存在） 使用writer=newstreamwriterconfigfile，False writer.writelineforgerpath writer.WriteLinesavefolder 终端使用 端接头

---

错误是怎么说的？但它说它不能——肯定有比这更具体的问题迹象。“不可能”，这并不是一条标准的错误消息。@David甚至不清楚谁是其中的负责人。IDE？编译器？运行时？