本來是用fso作的，發現日文會亂掉改用adodb.stream
tmp=Trim(TrageTextFile.ReadLine)
請問fso版的這行在adodb.stream該怎麼做呢
.ReadLine的adodb.stream版是什麼？
thx
Dim str
Set stm=CreateObject("adodb.stream")
stm.Type=2 '以本模式讀取
stm.mode=3
stm.charset="Shift-JIS"
stm.open
stm.loadfromfile "20140701_ex01.html"
str=stm.readtext
stm.Close
Set stm=nothing