如何将一个unicode字符串写到一个打开成ascii的对象？

sig13

1. 
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set f = fso.OpenTextFile(FileName, 2, True, -1)
   
4. f.Write TextString
   

复制代码

如果上面的opentextfile的最后一个参数不写，并且textstring是unicode的话，就会在运行的时候报错，说写不进去。

我从网页上outertext写进文件的时候，遇到这个问题的。

能不能自适应，不要打开成unicode的也可以写？是不是要做什么转换？