معرفة فورمات الملف unicode او ansi

لقد بحثت في الانترنت وجدت code التالي و لقد عمل معي البرنامج

و لفائدة الجميع احببت ان اكتب code

Private Sub DetectEncoding(ByVal FileName As String)

Dim b1 As Byte, b2 As Byte, c As String

Open FileName For Binary As #1

Get #1, , b1

Get #1, , b2

Close #1

If b1 = &HFF And b2 = &HFE Then c = "Unicode" Else _

If b1 = &HFE And b2 = &HFF Then c = "Unicode Big-Endian" Else _

If b1 = &HEF And b2 = &HBB Then c = "UTF-8" Else c = "ANSI"

MsgBox c

End Sub

شكرا لكل من حاول المساعده