vbscript-read-from-text-file

VBScript - Read From Text File

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

VBScript

  • 471
  • 209
  • 0
  • 0
Add to collection
© 2021VBAmacros.net

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.

Advertisement

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()
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
Advertisement
  • Created
    12-Mar-2021
  • Last updated
    19-Mar-2021
Advertisement
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!