fso에서는 charset을 지원하지 않습니다.

그래서 아래와 같이 하면 됩니다.





dim stm

Set stm = CreateObject("ADODB.Stream")

stm.Open 

stm.Type = 2 

stm.Charset = "utf-8" 

stm.WriteText(str)

call stm.SaveToFile(Savefilename , 2)

set stm = nothing

날짜: 2008-03-27 14:24:16, 조회수: 2681