How do you read a file using FSO in VB?

Answer 1

Here is an example that will read a text file and output it to a text box You will need a command button, a textbox and text file in your project's folder. You will also need to add the reference Microsoft Scripting Runtime to your project (Click Project->Reference) Private Sub Command1_Click()

' Declarations

Dim obj_fso As New FileSystemObject

Dim obj_file As Variant

Dim str_data As String

Dim str_array

Dim i As Integer

' Intialize the File System Object

Set obj_fso = CreateObject("Scripting.FileSystemObject")

' Specify the file to read from

Set obj_file = obj_fso.OpenTextFile(App.Path & "\file.txt")

' Reads the text file and stores it as a string

str_data = obj_file.ReadAll

' Inserts each line the string into an Array

str_array = Split(str_data, vbCrLf)

' Loop thru the array and output each line to the text box

For i = 0 To UBound(str_array)

Text1.Text = Text1.Text & str_array(i) & vbCrLf

Next

End Sub I hope this helps you. Cheers, Kobra