VBScript - Read From Text File

This script allows you to read the contents of a plain text file.

VBScript

4869
1296
0
0

Add to collection

1 Open your favorite text editor. In our case we are going to use Notepad++

2 Copy the VBScript code from below.

3 Paste the code in the newly created file.

4 Save the file with a ".vbs" extension.

5 Run the script file by double-clicking on it or via the CMD console.

6 That's it!

"Lorem Ipsum" text snippet kindly provided by Lipsum.

Code

' This script reads from a text file.
Sub readFromTextFile()
    ' Set variables
    Dim fso
    Dim reader
    Dim filePath
    Dim currentLine
    Dim lineCount
    ' Set file path
    filePath = "F:\VBAmacros\VBScript\LoremIpsum.txt"
    ' Create a reader
    Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
    ' Open text file 
    Set reader = fso.OpenTextFile(filePath, 1, True, 0)
    ' Set initial line count
    lineCount = 0
    ' Loop over lines
    Do While reader.AtEndOfStream = False
        ' Read a single line 
        currentLine = reader.ReadLine
        ' Increment the line count by one
        lineCount = lineCount + 1
    Loop
    ' Output text line in a message box
    MsgBox lineCount
    ' Release the reader object
    Set fso = Nothing
End Sub
' Run the procedure
Call readFromTextFile()