如何使用vbscript将文本文件转换为vbs文件？

Question

我是 vbscript 的新手，我正在尝试将文本文件（ .txt ）另存为vbs文件（ .vbs ）通过阅读或打开它。谁能告诉我如何读取文本文件并将其另存为用户定义扩展名的文件。我搜索了 FileSystemObjects ，并找到了使用 CreateTextFile 方法创建文本文件的方法，因此我搜索了其他方法来创建vbs文件。但是我没有找到完成它的任何方法。

Set obj = CreateObject("Scripting.FileSystemObject")
Const ForWriting = 2
Set obj1 = obj.OpenTextFile("E:\PROJECTS\VB\test.txt",ForWriting)
obj1.SaveAsFile("E:\PROJECTS\VB\test.vbs")
obj1.Close
Set obj = Nothing

有人可以帮我还是建议我找到解决方法。