Public Sub tester(ByRef FileName As String, ByRef FileUnicodetype As Object)
'Dim path As String = "c:\temp\MyTestunicodeencoding.txt"
Try
' If File.Exists(path) Then
' File.Delete(path)
' End If
'Use an encoding other than the default (UTF8).
' Dim sw As StreamWriter = New StreamWriter(path, False, New UTF32Encoding())
' Dim sw As New StreamWriter(path, False, New UTF8Encoding())
'Dim sw As New StreamWriter(path, False, New UTF32Encoding())
'Dim sw As New StreamWriter(path, False, New UTF7Encoding())
'Dim sw As New StreamWriter(path, False, New UnicodeEncoding())
' sw.WriteLine("This")
' sw.WriteLine("is some text")
' sw.WriteLine("to test")
' sw.WriteLine("Reading")
' sw.Close()
'********************************************************************
Dim sr As New StreamReader(FileName, True)
Dim Countchars As Integer
Do While sr.Peek() >= 0
'Debug.Write(Convert.ToChar(sr.Read()))
Countchars += 1
If Countchars > 10 Then Exit Do
Loop
Debug.WriteLine(" ")
'Test for the encoding after reading, or at least
'after the first read.
Debug.Print("The encoding used was {0}.", sr.CurrentEncoding)
Debug.WriteLine(" ")
FileUnicodetype = sr.CurrentEncoding
sr.Close()
Catch e As Exception
Debug.Print("The process failed: {0}", e.ToString())
Debug.WriteLine(" ")
FileUnicodetype = "EncodingUnknown"
End Try
