Sub Button1Click(sender As Object, e As System.EventArgs)
 
Dim usrvar As String = Me.usrname.Text
Dim pwdvar As String = Me.pwd.Text
 
 
Dim FStream As New FileStream("C:\B\T\User\" & usrvar & _
".txt", FileMode.Open, FileAccess.Read, FileShare.Read)
 
 
Dim SReader As New StreamReader(FStream)
 
 
Dim pwddat As String = SReader.ReadToEnd
 
SReader.Close()
 
 
Dim bDirectoryExists As Boolean
bDirectoryExists = Directory.Exists("C:\B\T\logfiles")
 
 
If Not Directory.Exists("C:\BTW\TimeControle\logfiles") Then
 
Directory.CreateDirectory("C:\B\T\logfiles")
End If
 
 
 
If pwddat = pwdvar Then
 
 
Dim FStreami As New FileStream("C:\B\T\logfiles\logs.txt", _
  FileMode.OpenOrCreate, FileAccess.Write, FileShare.Write)
 
FStreami.Close()
 
 
Dim sFilePathe As String = "C:\B\T\logfiles\logs.txt"
Dim streami As FileStream = New FileStream(sFilePathe, FileMode.Append)
Dim SWriter As StreamWriter = New StreamWriter(streami, _
  System.Text.Encoding.Default)
 
SWriter.WriteLine(usrname.Text & ";" &datetime.now)
SWriter.Close()
 
 
Me.Close
 
 
End If
 
End Sub