[COM]使用Scripting.FileSystemObject的Write Method發生Invalid procedure call or argument的錯誤
VB6使用Scripting.FileSystemObject的Write Method發生Invalid procedure call or argument的錯誤，查了Google後發現，可能是在Write的字串中可能有unicode的字，所以就改用ADODB.Stream來產生unicode的檔案! Code如下，
Set objFS = New Scripting.FileSystemObject
Set objTS = objFS.CreateTextFile(vstrFileName, vblnOverwrite) '開啟目的檔
Call objTS.Write(vstrText)
Call objTS.Close
原本是用FileSystemObject改用以下的Adodb.Stream
Dim objOutputStream As New ADODB.Stream
objOutputStream.Charset = "UTF-8"
objOutputStream.Open
objOutputStream.WriteText vstrText
objOutputStream.SaveToFile vstrFileName, 2 'adSaveCreateOverWrite
objOutputStream.Close
Hi,
亂馬客Blog已移到了 「亂馬客 : Re:從零開始的軟體開發生活」
請大家繼續支持 ^_^
