CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Read a file and add each line to an array of strings
Option Explicit
 
Public Function ReadArrayFromFile(FilePath As String) As String()
    Dim strArray() As String
    Dim itemCount As Long, fileNum As Long
 
    On Error GoTo ReadArrayFromFile_Error
 
    itemCount = -1
 
    fileNum = OpenFile(FilePath)
 
    If fileNum = -2 Then
        Exit Function
    End If
 
    Do While Not EOF(fileNum)
        itemCount = itemCount + 1
        ReDim Preserve strArray(itemCount)
        Input #fileNum, strArray(itemCount)
    Loop
 
    Call CloseFile(fileNum)
 
    ReadArrayFromFile = strArray
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
ReadArrayFromFile_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ReadArrayFromFile of Form Form1"
End Function
 
Public Function OpenFile(ByVal FilePath As String) As Long
    On Error GoTo OpenFile_Error
 
    If Len(Dir$(FilePath)) = 0 Then
        OpenFile = -1
        Exit Function
    End If
 
    OpenFile = FreeFile
    Open FilePath For Input As #OpenFile
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
OpenFile_Error:
    OpenFile = -2
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure OpenFile of Form Form1"
End Function
 
Public Function CloseFile(ByVal FileNumber As Long) As Boolean
    On Error GoTo CloseFile_Error
 
    Close #FileNumber
    CloseFile = True
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
CloseFile_Error:
    CloseFile = False
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CloseFile of Form Form1"
End Function