Bad File Mode 2

[Keyster86]

I must be half asleep - I can't for the life of me figure out why the code is throwing an error. Please help.

SET objFSO = CreateObject("Scripting.fileSystemObject")
SET objFileTEXT = objFSO.OpenTextFile("hosts.txt",2,TRUE)

DO UNTIL objFileTEXT.AtEndOfStream
	strComputer = objFileTEXT.ReadLine
	wscript.echo strComputer
LOOP

V/r,

SPC Key
United States Army

 

[tsuji]

>SET objFileTEXT = objFSO.OpenTextFile("hosts.txt",2,TRUE)
[tt]SET objFileTEXT = objFSO.OpenTextFile("hosts.txt",[red]1[/red],TRUE)[/tt]

If you attempt to read the file, it is 1 (for reading) not 2 (for writing only).

 

[guitarzan]

Keyster86:
I would get in the habit of using constants; add this to the top of every script that uses FSO for input/output:

Const ForReading = 1, ForWriting = 2, ForAppending = 8

SET objFileTEXT = objFSO.OpenTextFile("hosts.txt",ForReading,TRUE)

Makes the code much more readable for yourself, or the next programmer who would have to maintain your code.