Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso, MyFile, FileName, TextLine Set fso = CreateObject("Scripting.FileSystemObject") ' Open the file for output. FileName = "c:\scripts\test.cfg" ' Open the file for input. Set MyFile = fso.OpenTextFile(FileName, ForReading) ' Read from the file and display the results. Do While MyFile.AtEndOfStream <> True TextLine = MyFile.ReadLine msgbox TextLine & "<br />" Loop MyFile.Close
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.