打开并写入2个文件

Question

我需要创建一个脚本来打开一个文件（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

Answer 1

您可以拨打OpenTextFile两次，但是如果不先关闭它就不能打开同一个文件两次。从我看到你不需要打开文件两次。 CreateTextFile已经返回了文件的句柄，因此您可以在整个循环中使用objFile2。