Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Charset = "utf-8"
objStream.LoadFromFile (path)
While(not objStream.EOS)
Tmp = objStream.ReadText(-2)
...
Wend
全站熱搜
有關
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Charset = "utf-8"
objStream.LoadFromFile (path)
While(not objStream.EOS)
Tmp = objStream.ReadText(-2)
...
Wend