打开并写入2个文件

我需要创建一个用于打开一个文件的脚本（Server.txt →包含所有服务器名称）并创建带有ServerName的日志文件（例如：Server1.txt）。之后，我需要WriteLine在此日志文件结果的脚本检索注册表值。打开并写入2个文件

我有一个脚本工作检索所有注册表值，但我需要创建每个FileLog与ServerName。

我想在关闭一个之前我不能用两个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

来源

2015-09-14 anderson silva

阅读[OpenTextFile方法]（https://msdn.microsoft.com/en-us/library/314cz14s（v = vs.84）.aspx）参考：第一个参数应该是一个_String表达式_来标识文件打开，但'objFile2'是之前使用'CreateTextFile'方法定义的_TextStream_ **对象**。请阅读并遵循如何创建[mcve]！ – JosefZ

你可以叫OpenTextFile两次，但无法打开同一个文件不首先关闭它。不过，从我看到的你不需要打开文件两次。 CreateTextFile已经返回该文件的句柄，因此您可以在整个循环中简单地使用objFile2。

来源

2015-09-14 14:47:36

打开并写入2个文件

回答

相关问题