#文字コードを指定してファイルを読む
###VBSでUTF-8のファイルを読み込む方法
hoge.vbs
' ファイルストリームを生成
Dim iStream
Set iStream = CreateObject("ADODB.Stream")
'パラメタ 1:バイナリ 2:テキスト
iStream.type = 2
'入力ファイルの文字コードを設定
iStream.Charset = "UTF-8"
iStream.Open
iStream.LoadFromFile(ファイルパス)
Do While iStream.EOS = False
' 1行ずつ読み込んで処理する
Loop
'ストリームを閉じる
iStream.Close
'オブジェクトを解放
Set iStream = Nothing