Skip to content

Instantly share code, notes, and snippets.

@eggist77

eggist77/textRead.vbs

Created March 22, 2019 13:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save eggist77/b5cfa629a4ea0ad9c314efb881e3485a to your computer and use it in GitHub Desktop.
Save eggist77/b5cfa629a4ea0ad9c314efb881e3485a to your computer and use it in GitHub Desktop.
Download ZIP
textRead
Raw
textRead.vbs
'test
'Read a text file
'iomode
Const ForReading = 1, ForWriting = 2, ForAppending = 8
txtFile = "txtfile.txt"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(txtFile, ForReading)
Do Until f.AtEndOfStream
line = f.ReadLine
msgbox line
Loop
f.Close
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment