修正:
Dim fso, f
Set fso =CreateObject(“Scripting.FileSystemObject”)
Set f =fso.OpenTextFile(“C:\Users\Administrator\Desktop\1.txt”, 2, True,-1)
//-1 以 Unicode 格式打开文件。
//不存在时允许创建新文件为 True
// 2 ForWritting
// Write方法会覆盖掉原来文件中的全部内容
f.Write “哈哈”
f.Close