Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes

Hola,

Necesito ayuda con un pequeño código. Hace años que no programo y se me ocurrio ponerlo en práctica con una pequeña necesidad que tenemos en mi empresa.

Quisiera crear que el programa cree un archivo por variables.

Public Class frmWeb

    Dim ipvar As String

    ':::Ruta donde crearemos nuestro archivo txt
    Dim DirStrPath As String = "C:\Tutoriales\"
    ':::Nombre del archivo
    Dim FileStrPath As String = "Prueba.txt"
    Dim StrPath As String = DirStrPath & FileStrPath

En el form_load la aplicación comprueba que si no existe el directorio lo crea, lo lee hasta el final y añade lo leído a un valor que pinta en un label, y lo utiliza un webbrowser.

Try

         If Not File.Exists(FileStrPath) Then

             ' Try to create the directory.
             Dim di As
                  DirectoryInfo = Directory.CreateDirectory(DirStrPath)

             ':::Si la carpeta existe creamos o sobreescribios el archivo txt
             fs = File.Create(FileStrPath)
             fs.Close()
             MsgBox("Archivo creado correctamente" &
                  vbNewLine & "Añadir nueva dirección del dispensador
                  principal", MsgBoxstyle.Information, "")


         Else


             Try

                 ':::Creamos nuestro objeto de tipo
                      StreamReader que nos permite leer archivos
                 Dim leer As New StreamReader(StrPath)
                 leer.Close()

                 ' Apuntador libre a archivo 
                 Dim Apunt As Integer = FreeFile()
                 ' Variable donde guardamos cada línea de texto 
                 Dim Texto As String

                 ' Abrimos el archivo y lo recorremos hasta el
                      final línea por línea 
                 FileOpen(Apunt, StrPath, OpenMode.Input, OpenAccess.Read)
                 Do While Not EOF(Apunt)
                     ' Leemos la línea de texto del archivo 
                     Texto = LineInput(Apunt)
                     ':::Agregramos los registros encontrados
                     TxtIP.Text = "La dirección actual del
                          dispensador es: " + Texto
                     ipvar = Texto
                     WebBrowser1.Refresh()
                     WebBrowser1.Navigate("http://" +
                          ipvar + "terminal/terminal.html")
                 Loop
                 ' Cerramos el archivo 
                 FileClose(Apunt)

             Catch ex As Exception
                 MsgBox("Se presento un problema al leer el
                      archivo: " & ex.Message, MsgBoxstyle.Critical, "Qmatic Terminal")
             End Try


         End If

     Catch ex As Exception
         MsgBox("Se presento un problema al momento de crear el
              archivo: " & ex.Message, MsgBoxstyle.Critical, "")
     End Try

En esta otra parte del código escribimos la nueva dirección, añadiendo al archivo del texto y volviendolo a leer.

Private Sub TxtIpChange_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtIpChange.KeyDown
        If e.KeyCode = Keys.Enter Then

            Dim escribir As New StreamWriter(StrPath)


            Try
                ':::Creamos nuestro objeto de tipo StreamReader que nos permite leer archivos
                Dim leer As New StreamReader(StrPath)
                leer.Close()

                ':::Escribimos una linea en nuestro archivo TXT con el formato que este separado por coma (
                escribir.WriteLine(TxtIpChange.Text)
                MsgBox("Registro guardado correctamente", MsgBoxstyle.Information, "")
                ':::Limpiamos l