主题：我想输出一条信息,怎么不行,谁帮着看看?

sub txtDemo()

Call 写Unicode("123546789", "c:\1.txt")

end sub




Sub 写Unicode(文本, 路径)
'
'
Dim fso, f, ts
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
'
fso.createtextfile 路径
Set f = fso.getfile(路径)
Set ts = f.openastextstream(ForWriting, TristateTrue)
ts.write 文本
ts.Close
'
'
End Sub