'========================================

Function zFile_GetEncoding(sFileName)

	Dim oFso, oFile, iChar
	Const ForReading = 1

	Set oFso = CreateObject("Scripting.FileSystemObject")

	'Open the file for reading - use ascii (default)
	Set oFile = oFso.openTextFile(sFileName, ForReading)

	'Get the first byte
	iChar = Asc(oFile.Read(1))

	oFile.Close

	Set oFile = Nothing

	If iChar = 255 Then
		zFile_GetEncoding = "Unicode"

	ElseIf iChar = 254 Then
		zFile_GetEncoding = "UniBig" 'Unicode Big Endian

	ElseIf iChar = 239 Then
		zFile_GetEncoding = "Utf8"

	Else
		zFile_GetEncoding = "Ansi"
	End If

End Function

'========================================