Manipular archivos de texto ".txt" (crear, eliminar,  leer y modificar)  con Asp.net 

Manipular archivos de texto con Asp.net es relativamente fácil con estos cuatro métodos que les comparto a continuación:

Todos los métodos trabajaran sobre un archivo en una carpeta  "C:\Registros\" asi que puedes modificar esta parte o crear una carpeta en "C:\" con el nombre de Registros. 

Crear un archivo txt:

   Sub CrearTxt()
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) = False Then
                Dim FsCrear As FileStream = File.Create(RutaTxt)
                FsCrear.Close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Eliminar archivo txt:

    Sub EliminarTxt()
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) Then
                File.Delete(RutaTxt)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Leer archivo txt :

    Sub LeerTxt()
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) Then
                Dim sr As New System.IO.StreamReader(RutaTxt)
                Dim TextoTxt = sr.ReadToEnd()
                sr.Close()
                MsgBox(TextoTxt)
            Else
                MsgBox("El archivo no existe")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Leer Modificar txt :

    Sub ModificarTxt(ByVal Mensaje As String)
        Dim RutaGuardado As String = "C:\Registros\"
        Dim NombreTxt As String = "Registro.txt"
        Try
            Dim RutaTxt As String = RutaGuardado & NombreTxt
            If File.Exists(RutaTxt) Then
                Dim SwEscritor As New System.IO.StreamWriter(RutaTxt, True)
                SwEscritor.WriteLine(Mensaje)
                SwEscritor.Close()
            Else
                MsgBox("El archivo no existe")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub