FileGet(iFr, sTmp) и "ÿþs !

[student-uni]

Иногда FileGet(iFr, sTmp) возврашает мне в sTmp = ""ÿþs"

вот полныи текст

кто знает в чем дело помогите пожалуиста

Спасибо

Код: Выделить всё

Dim ReadString As String
            Dim iFr As Integer
            ReadString = CurDir() & "\test.txt"

            Dim sTmp As String = New String(" ", FileLen(ReadString))

            iFr = FreeFile()
           
            FileOpen(iFr, ReadString, OpenMode.Binary)
           

            sTmp = Space(Convert.ToInt32(FileLen(ReadString)))

            FileGet(iFr, sTmp)

            FileClose(iFr)

            Dim strRecords() As String : strRecords = Split(sTmp, vbCrLf)



[Ramzes]

есть такой клас Encoding
посмотри его

[Sebas]

System.IO.File.ReadAllText(FileName,System.Text.Encoding.Default)