打開並寫入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個文件

回答

相關問題