朋友们， 请帮我看看这个问题多多啊

 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 不了