Dim fso, f1, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile ("c:\test1.txt")
Set f1 = fso.GetFile("c:\test1.txt")
Set ts = f1.OpenAsTextStream(ForWriting, True)
我懒得改了!你自已改改!
------------------
第007元素
------------------------
谁知道啊?请告诉我!谢谢!
The 007 element