CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to write a string array to a text file
Option Explicit
 
Public Function WriteArrayToFile(ByRef strArray() As String, ByVal FilePath As String) As Boolean
    Dim fileNum As Long
    Dim I As Integer
    On Error GoTo WriteArrayToFile_Error
 
    fileNum = CreateFile(FilePath)
 
    For I = LBound(strArray) To UBound(strArray)
        Print #fileNum, strArray(I)
    Next I
 
    Call CloseFile(fileNum)
 
    WriteArrayToFile = True
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
WriteArrayToFile_Error:
    WriteArrayToFile = False
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure WriteArrayToFile 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