Dim fso As scripting.filesystemobject
Dim fso As scripting.textscream
Set fso = New scripting.filesystemobject
Set ts = fso.createtextfile("c:\users\xia\desktop\test.txt")
ts.Write "created on " & Now & vbNewLine
為什麽RUN 不了