Vb.net 向现有文件写入或追加文本

我启动了一个新软件，将插入文本框中的所有文本保存到文本文件中，一切正常，但如果将其保存到参考文件中，如何使用文件扩展名.txt保存我的内容 我尝试过这个方法，但是文件没有扩展名，我的代码中遗漏了一些东西。 在搜索了每个文件之后，我找到了它的解决方案，但是我如何在没有删除任何内容的情况下将新行添加到现有文件中呢

这是我的密码

Imports System.Text
Imports Microsoft.Win32
Imports System.IO
Imports System
Imports Microsoft.VisualBasic
Public Class Form1
Private Sub btnMapaEndereco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapaEndereco.Click

    If VerificaNavegador() Then

        Try
            Dim rua As String = String.Empty
            Dim cidade As String = String.Empty
            Dim estado As String = String.Empty
            Dim cep As String = String.Empty
            Dim path As String = "c:\Mymaps"
            Dim FileName As String = "C:\Mymaps\mymaps.txt"

            Dim path2 As String = My.Computer.FileSystem.SpecialDirectories.Desktop


            Dim consultaEndereco As New StringBuilder()
            consultaEndereco.Append("http://maps.google.com/maps?q=")

            Dim FILE_NAME As String = "C:\MyMapsDataSearchQueris.txt"
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
            objWriter.WriteLine("rua: " + txtRua.Text)
            objWriter.WriteLine("cidade: " + txtCidade.Text)
            objWriter.WriteLine("estado: " + txtEstado.Text)
            objWriter.WriteLine("cep: " + txtCep.Text)
            objWriter.WriteLine("-----------fim de pesquisa-----------")
            objWriter.Close()


            ' monta a rua como parte da consulta
            If txtRua.Text <> String.Empty Then
                rua = txtRua.Text.Replace(" ", "+")
                consultaEndereco.Append(rua + "," & "+")
            End If

            ' monta a cidade como parte da consulta
            If txtCidade.Text <> String.Empty Then
                cidade = txtCidade.Text.Replace(" ", "+")
                consultaEndereco.Append(cidade + "," & "+")
            End If

            ' monta o estado como parte da consulta
            If txtEstado.Text <> String.Empty Then
                estado = txtEstado.Text.Replace(" ", "+")
                consultaEndereco.Append(estado + "," & "+")
            End If

            ' monta o cep como parte da consulta
            If txtCep.Text <> String.Empty Then
                cep = txtCep.Text.ToString()
                consultaEndereco.Append(cep)
            End If

            ' passa a url com a query string para o controle webbrowser
            webb1x.Navigate(consultaEndereco.ToString())


        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString(), "Não foi possível obter o Mapa")

        End Try
    Else
        MessageBox.Show("O Naveador usado é Incompatível", "Aviso")
    End If


End Sub

Private Function VerificaNavegador() As Boolean
    Dim versaoNavegador As Integer, RegVal As Integer
    Try
        ' obtem a versão instalada do IE
        Using Wb As New WebBrowser()
            versaoNavegador = Wb.Version.Major
        End Using

        ' define a versão do IE
        If versaoNavegador >= 11 Then
            RegVal = 11001
        ElseIf versaoNavegador = 10 Then
            RegVal = 10001
        ElseIf versaoNavegador = 9 Then
            RegVal = 9999
        ElseIf versaoNavegador = 8 Then
            RegVal = 8888
        Else
            RegVal = 7000
        End If

        ' define a chave atual
        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
        Key.SetValue(System.Diagnostics.Process.GetCurrentProcess().ProcessName + ".exe", RegVal, RegistryValueKind.DWord)
        Key.Close()
        Return True

    Catch ex As Exception
        Return False
    End Try
End Function


Private Sub btnMapaCoordenadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapaCoordenadas.Click


    If VerificaNavegador() Then
        If txtLatitude.Text = String.Empty Or txtLongitude.Text = String.Empty Then
            MessageBox.Show("Forneça os valores para a latitude e a longitude.", "Dados inválidos")
        End If

        Try
            Dim lat As String = String.Empty
            Dim lon As String = String.Empty

            Dim consultaEndereco As New StringBuilder()
            consultaEndereco.Append("http://maps.google.com/maps?q=")

            ' monta a latitude como parte da consulta
            If txtLatitude.Text <> String.Empty Then
                lat = txtLatitude.Text
                consultaEndereco.Append(lat + "%2C")
            End If

            ' monta a longitude como parte da consulta
            If txtLongitude.Text <> String.Empty Then
                lon = txtLongitude.Text
                consultaEndereco.Append(lon)
            End If

            webb1x.Navigate(consultaEndereco.ToString())

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString(), "Error")

        End Try

    Else
        MessageBox.Show("O Naveador usado é Incompatível", "Aviso")
    End If

End Sub

Private Sub splitContainer1_Panel1_Paint(sender As Object, e As PaintEventArgs) Handles splitContainer1.Panel1.Paint

End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
    Form3.Show()
End Sub
End Class

导入系统文本
导入Microsoft.Win32
导入System.IO
导入系统
导入Microsoft.VisualBasic
公开课表格1
私有子BTNMAPeanderEco_Click（ByVal发送者作为System.Object，ByVal e作为System.EventArgs）处理BTNMAPeanderEco。单击
如果是Vegador（），那么
尝试
Dim rua作为字符串=字符串.空
Dim cidade As String=String.Empty
Dim estado As String=String.Empty
Dim cep As String=String.Empty
Dim路径为String=“c:\Mymaps”
Dim文件名为String=“C:\Mymaps\Mymaps.txt”
Dim path2作为字符串=My.Computer.FileSystem.SpecialDirectories.Desktop
Dim ConsultateUndereco作为新的StringBuilder（）
consultatendereco.Append（“http://maps.google.com/maps?q=")
Dim文件\u名称为String=“C:\MyMapsDataSearchQueris.txt”
Dim objWriter作为新System.IO.StreamWriter（文件名）
objWriter.WriteLine（“rua:+txtRua.Text”）
objWriter.WriteLine（“cidade:+txtCidade.Text）
objWriter.WriteLine（“estado:+txtEstado.Text”）
objWriter.WriteLine（“cep:+txtCep.Text”）
objWriter.WriteLine（“--------------fim de pesquisa------------”）
objWriter.Close（）
“monta a rua como parte da consulta
如果txtRua.Text String.Empty，则
rua=txtRua.Text.Replace（“，“+”）
追加（rua+“，”和“+”）
如果结束
“monta a cidade como parte da consulta
如果txtCidade.Text String.Empty，则
cidade=txtCidade.Text.Replace（“，“+”）
追加（cidade+“，”和“+”）
如果结束
“monta o estado como parte da consulta
如果txtEstado.Text String.Empty，则
estado=txtEstado.Text.Replace（“，“+”）
Append（estado+“，”和“+”）
如果结束
“monta o cep como parte da consulta
如果txtCep.Text String.Empty，则
cep=txtCep.Text.ToString（）
ConsultateUndereco.Append（cep）
如果结束
'passa a url com a查询字符串para o controle webbrowser
webb1x.Navigate（consultatendereco.ToString（））
特例
MessageBox.Show（例如Message.ToString（），“Não foi possível obter o Mapa”）
结束尝试
其他的
MessageBox.Show（“O Naveador usadoécompstível”，“Aviso”）
如果结束
端接头
私有函数verificanavgador（）作为布尔值
Dim versaoNavegador为整数，RegVal为整数
尝试
“这是我的梦想
将Wb用作新的WebBrowser（）
versaoNavegador=Wb.Version.Major
终端使用
“定义一个versão do IE
如果versaoNavegador>=11，则
RegVal=11001
ElseIf versaoNavegador=10那么
RegVal=10001
ElseIf versaoNavegador=9那么
RegVal=9999
ElseIf versaoNavegador=8那么
RegVal=8888
其他的
RegVal=7000
如果结束
“定义一个对话”
Dim Key As RegistryKey=Registry.CurrentUser.OpenSubKey（“SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE\U BROWSER\U EMULATION”，真）
Key.SetValue（System.Diagnostics.Process.GetCurrentProcess（）.ProcessName+“.exe”、RegVal、RegistryValueKind.DWord）
Key.Close（）
返回真值
特例
返回错误
结束尝试
端函数
私有子btnMapaCoordenadas_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnMapaCoordenadas。单击
如果是Vegador（），那么
如果txtLatitude.Text=String.Empty或txtLatitude.Text=String.Empty，则
MessageBox.Show（“Forneça os valores para a纬度e a经度。”，“Dados inválidos”）
如果结束
尝试
Dim lat As String=String.Empty
Dim lon As String=String.Empty
Dim ConsultateUndereco作为新的StringBuilder（）
consultatendereco.Append（“http://maps.google.com/maps?q=")
“monta a latitude como parte da consulta
如果txtLatitude.Text String.Empty，则
lat=txtLatitude.Text
consultatendereco.Append（lat+“%2C”）
如果结束
“蒙塔，我是领事馆的一员
如果txtLength.Text String.Empty，则
lon=txtLength.Text
consultatendereco.Append（lon）
如果结束
webb1x.Navigate（consultatendereco.ToString（））
特例
MessageBox.Show（例如Message.ToString（），“Error”）
结束尝试
其他的
MessageBox.Show（“O Naveador usadoécompstível”，“Aviso”）
如果结束
端接头
私有子splitContainer1_Panel1_Paint（发送方作为对象，e作为PaintEventArgs）处理splitContainer1.Panel1.Paint
端接头
私有子标签3\u单击（发送者作为对象，e作为事件参数）处理标签3。单击
表格3.Show（）
端接头
末级

只需修改以下行：

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

---

只需修改以下行：

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

---

New System.IO.StreamWriter（文件名，True）

New System.IO.StreamWriter（文件名，True）