Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Mutiple Folder view (5 Folder view)||3||82|
|MySQL programmer starter||25||65|
|VB script for outlook to copy mail to OneNote||2||42|
|Create macro that is run through Task Scheduler and saves all open Excel spreadsheets?||14||33|
Join the community of 500,000 technology professionals and ask your questions.