title: Read utf-8 text file in vbscript
body: <p>I have a text file saved as UTF-8 and when I try to read the file it gives me weird characters and not the correct characters (it contains Chinese characters). How can I make it give me the correct Chinese characters?</p>
  
  <pre><code>Option Explicit
  
  Dim objFSO, strTextFile, strData, strLine, arrLines, aniTextFile, aniData, aniLines, aniLine, objTextFile, fso, inputFileList, listFile, fname
  Dim iim1, iret, iret2, iret3, i
  Const ForReading   = 1
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  strTextFile = "C:\Users\admin\Desktop\ArtistCG\folder.txt"
  strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll
  arrLines = Split(strData,vbCrLf)
  
  aniTextFile = "C:\Users\admin\Desktop\ArtistCG\folder-list.txt"
  aniData = objFSO.OpenTextFile(aniTextFile,ForReading).ReadAll
  aniLines = Split(aniData,vbCrLf)
  
  For i = 0 To UBound(arrLines)
    strData = objFSO.OpenTextFile(arrLines(i),ForReading).ReadAll
    WScript.Echo strData
  
    Set listFile = objFSO.OpenTextFile(aniLines(i),ForReading)
    Do While Not listFile.AtEndOfStream
      fName = listFile.ReadLine
      WScript.Echo fName
    Loop
    listFile.Close
  Next 
  </code></pre>