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

abort 發表在 痞客邦 PIXNET 留言(0) 人氣()