根据你提供的代码,出现`对象不支持‘objshell.createtextfile’`错误的原因是`Wscript.Shell`对象不支持`CreateTextFile`方法。
`CreateTextFile`方法是`Scripting.FileSystemObject`对象的方法,用于创建文本文件。而你使用的`CreateObject("Wscript.Shell")`创建的是`Wscript.Shell`对象,并不具备`CreateTextFile`方法。
为了解决这个问题,你可以使用`CreateObject("Scripting.FileSystemObject")`创建`Scripting.FileSystemObject`对象,然后使用该对象的`CreateTextFile`方法来创建文本文件。
修改后的代码如下所示:Set objFSO = CreateObject("Scripting.FileSystemObject")
desktopPath = objFSO.GetSpecialFolder(0)
Set objFile = objFSO.CreateTextFile(desktopPath & "\example.txt", True)
objFile.Close
这样,将会使用`Scripting.FileSystemObject`对象来创建文本文件,并且将其保存在桌面上。请确保你有足够的权限在桌面上创建文件。 |