通过 VBScript 创建新文件答案

【问题标题】：Create new file via VBScript通过 VBScript 创建新文件
【发布时间】：2023-04-02 22:10:02
【问题描述】：

我创建了包含自定义内容的新文件。但它没有运行。（保存文件名“CustomerList.hta”）

请帮我解决。

<script language="VBScript">
Dim fso, outFile

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
Set tfile = tfolder.CreateTextFile("Customers.txt")
Set outFile = tfile

outFile.WriteLine "This first line"
outFile.WriteLine "The full path file is: " & tfile
outFile.WriteLine "This is last line"
outFile.Close
</script>

【问题讨论】：

删除<script>标签。

标签： vbscript scripting

【解决方案1】：

重构为：

'<script language="VBScript">
Dim fso, outFile

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
'Set tfile = tfolder.CreateTextFile("Customers.txt")
sFSpec = fso.BuildPath(tfolder, "Customers.txt")
WScript.Echo sFSpec
'Set tfile = fso.CreateTextFile("Customers.txt")
Set tfile = fso.CreateTextFile(sFSpec)
Set outFile = tfile

outFile.WriteLine "This first line"
'outFile.WriteLine "The full path file is: " & tfile
outFile.WriteLine "The full path file is: " & sFSpec
outFile.WriteLine "This is last line"
outFile.Close
'</script>

输出：

cscript 46349646.vbs
C:\Users\eh\AppData\Local\Temp\Customers.txt

type C:\Users\eh\AppData\Local\Temp\Customers.txt
This first line
The full path file is: C:\Users\eh\AppData\Local\Temp\Customers.txt
This is last line

使用文档（不是一厢情愿的想法）来确定谁可以做什么。

【讨论】：

感谢您的脚本，但它不起作用。我保存了名称为 .hta 的文件。它说“对象要求：WScript”
将其保存为 .vbs，并使用以下命令从命令行运行它：“cscript file.vbs”（不带引号）

【解决方案2】：

.HTA 文件是一个 HTML 应用程序。您可以使用记事本创建该文件（它是一种文本格式）。检查this page 以获得基本的 hta 结构可以在here找到一个带有脚本的基本示例@

如果您需要动态创建 .hta 文件，您必须生成一个包含 hta 内容的文本文件（基本上它是一个 HTML 页面）。

【讨论】：