Get UTF-8 File Content

FileSystemObject doesn’t support UTF-8 format.

	public function get_file_content(path)
		Dim s

		Dim stream : Set stream = CreateObject("ADODB.Stream")

		stream.CharSet = "UTF-8"
		stream.Open
		stream.LoadFromFile path
		s = stream.ReadText
		stream.Close

		get_file_content = s
	end function