用FSO对象

dim fso,txtFile
set fso=createobject("Scripting.FileSystemObject")
set txtfile=fso.createTextFile("c:\a.txt")
txtfile.write("这是用VBS创建的文件")
txtfile.close()

 关于FSO对象的更多方法，网上有。

问题解决。好好学习，好同学。