Public Function writeText(ByVal str As String) '
Try
str &= ControlChars.CrLf
Dim fStream As FileStream
Dim sFileName As String
sFileName = Application.StartupPath & "\login.log"
fStream = New FileStream(sFileName, FileMode.Append)
Dim bWrite() As Byte = System.Text.Encoding.Default.GetBytes(str)
fStream.Write(bWrite, 0, bWrite.Length)
fStream.Flush()
fStream.Close()
fStream = Nothing
Catch ex As Exception
End Try
End Function
這個就可以寫日誌了！
