Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Read text file

Public Sub ReadTxtFile()     Dim myFileSystemObject As FileSystemObject     Dim aFile As TextStream     Set myFileSystemObject = New FileSystemObject     Set aFile = myFileSystemObject.OpenTextFile("C:\myFile.txt", 1)     Do While Not aFile.AtEndOfStream         Debug.Print aFile.ReadLine     Loop     aFile.Close     'Close file and convert lines of data to columns     Set myFileSystemObject = Nothing     Set aFile = Nothing End Sub