much appreciated
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
If txtUsername.Text = "" Then
MsgBox("Error, You Need Atleast One Letter", MsgBoxStyle.Critical)
Else
If My.Computer.FileSystem.DirectoryExists(" C:\Users\Omer Muhaidi\Downloads\Visual Basic Work\Omer Project" + txtUsername.Text + "\") Then
Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\Users\Omer Muhaidi\Downloads\Visual Basic Work\Omer Project" + txtUsername.Text + "\" + "USERNAME.TXT")
Dim userline As String
Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\Users\Omer Muhaidi\Downloads\Visual Basic Work\Omer Project" + txtUsername.Text + "\" + "PASSWORD.TXT")
Dim PASSLINE As String
Do
PASSLINE = txtPassword.Text
userline = USERREAD.ReadLine
Console.WriteLine(PASSLINE)
Console.WriteLine(userline)
Loop Until userline Is Nothing
If txtPassword.Text = "" Then
MsgBox("Error, Please Input A Password", MsgBoxStyle.Critical)
Else
If PASSLINE = PASSREAD.ReadLine() = True Then
MsgBox("Login Successful, You Are Now Logged In " + txtUsername.Text)
TopicForm.Show()
End If
End If
Else
MsgBox("That Username Doesnt Exist", MsgBoxStyle.Critical)
End If
End If
End Sub

New Topic/Question
Reply



MultiQuote




|