打开并写入2个文件答案

【问题标题】：open and write 2 files打开并写入2个文件
【发布时间】：2015-09-14 13:23:48
【问题描述】：

我需要创建一个脚本来打开一个文件（Server.txt → 内容所有服务器名称）并使用 ServerName 创建日志文件（例如：Server1.txt）。之后我需要 WriteLine 在此脚本的日志文件结果中检索注册表值。

我有一个脚本可以检索所有注册表值，但我需要使用 ServerName 创建每个 FileLog。

我认为在关闭一个之前不能使用两个Opentextfile。

我们能帮帮我吗？

这是我用于测试的代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Servers.txt")
Do Until objFile.AtEndOfStream
    strComputer = objFile.ReadLine
Set objFile2 = objFSO.CreateTextFile(strComputer & ".txt",True)
set objHtml=objFSO.OpenTextFile(objFile2,8,true)
objHtml.WriteLine Now() & VbTab & RegResultQuery
objHtml.Close
Loop

【问题讨论】：

阅读OpenTextFile Method参考：第一个参数应该是一个字符串表达式，标识要打开的文件，但objFile2是一个TextStream object 之前使用CreateTextFile 方法定义的。请阅读并关注如何创建minimal reproducible example！

标签： vbscript createfile

【解决方案1】：

你可以调用OpenTextFile 两次，但是你不能在不先关闭同一个文件的情况下打开它两次。不过，据我所知，您不需要两次打开文件。 CreateTextFile 已经返回文件句柄，因此您可以在整个循环中简单地使用 objFile2。

【讨论】：