visual basic 2008 express

Question

hola estoy aprendiendo a manejar este programa y tengo muchas dudas, estaba haciendo este prog de login y en la parte de registrarse funciona bien pero en la parte de buscar un usuario ya registrado no funciona correctamente. Me ayudaria mucho si alguien lo revisa...

 

Public Class registrarse

    Private Sub tabpage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub crear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crear.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        

        If My.Computer.FileSystem.DirectoryExists("C:\test\") Then

            'if the Folder exist do nothing

        Else

            ' if it does not. create it.

            MkDir("C:\test\")

            TextBox1.Text = " "

            TextBox2.Text = " "

        End If

        If My.Computer.FileSystem.DirectoryExists("C:\test\" + TextBox1.Text) Then

            'if the folder exist show an error

            MsgBox("ERROR - Este usuario ya existe")

            TextBox1.Text = " "

            TextBox2.Text = " "

        Else

            'if the folder does not exists

            MkDir("C:\test\" + TextBox1.Text)

            Dim a As New System.IO.StreamWriter("C:\test\" + TextBox1.Text + TextBox2.Text)

            a.WriteLine(TextBox1.Text)

            a.Close()

            TextBox1.Text = " "

            TextBox2.Text = " "

        End If

    End Sub

    Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click

        

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox4.Text = " " Then

            MsgBox("escriba un nombre")

            TextBox3.Text = " "

            TextBox4.Text = " "

        Else

            If My.Computer.FileSystem.DirectoryExists("C:\test\" + TextBox4.Text + TextBox4.Text) Then

                'if the folder exist 

                MsgBox("Bienvenido")

                TextBox3.Text = " "

                TextBox4.Text = " "

            Else

                'if the folder does not exists

                MsgBox("ERROR- el usuario no existe")

                TextBox3.Text = " "

                TextBox4.Text = " "

            End If

        End If

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

End Class

Answer 1

Public Class Form1
  ' il form deve contenere i controlli Texttbox1 , TextBox2 , Button1 , Button2

  Sub AddUser()

    If TextBox1.Text.Trim + TextBox2.Text.Trim = "" Then
      MsgBox("escriba un nombre (senza .,;)")
      Exit Sub
    End If

    If My.Computer.FileSystem.FileExists("C:\test\" + TextBox1.Text.Trim + TextBox2.Text.Trim + ".txt") Then
      MsgBox("ERROR - Este usuario ya existe")
      TextBox1.Text = ""
      TextBox2.Text = ""
      Exit Sub
    End If

    If Not My.Computer.FileSystem.DirectoryExists("C:\test") Then
      My.Computer.FileSystem.CreateDirectory("c:\test")
    End If

    Dim a As New System.IO.StreamWriter("C:\test\" + TextBox1.Text.Trim + TextBox2.Text.Trim + ".txt")

    a.WriteLine(TextBox1.Text.Trim)
    'a.WriteLine(TextBox1.Text.Trim + ";" + TextBox2.Text.Trim)
    a.Close()

    MsgBox("Usario registrato correttamente")
    TextBox1.Text = ""
    TextBox2.Text = ""

  End Sub

  Sub GetUser()

    If TextBox3.Text.Trim + TextBox4.Text.Trim = "" Then
      MsgBox("escriba un nombre (senza .,;)")
      Exit Sub
    End If

    If My.Computer.FileSystem.FileExists("C:\test\" + TextBox3.Text.Trim + TextBox4.Text.Trim + ".txt") Then
      MsgBox("Bienvenido")
    Else
      MsgBox("ERROR- el usuario no existe")
      TextBox3.Text = " "
      TextBox4.Text = " "
    End If

  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    AddUser()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    GetUser()
  End Sub
End Class

Non sono però daccordo su questo metodo di autenticazione. Ciao.