' @Author - Alexander Bolte
' @ChangeDate - 2014-10-07
' @Description - exporting a given collection of type Scripting.Dictionary into a text file.
' One line will be written per key value pair.
' A key value pair will be written using the following syntax.
' KEY - VALUE
' @Param trgPath - a String giving the full path to the target text file including file name and extension.
' @Param coll - a collection of type Scripting.Dictionary holding key value pairs to be exported into text file available under trgPath.
' @Remarks - text file will be created, if not existing yet.
' If text file already existing, the handed collection items will be appended at the end.
Public Function exportKeyCollectionToTextFile(ByVal trgPath As String, ByRef coll As Scripting.Dictionary)
    Dim i As Long
    Dim aLine As String
    Dim keys As Variant
    
    keys = coll.keys
    For i = LBound(keys) To UBound(keys)
        aLine = keys(i) & " - " & coll(keys(i))
        Call writeLineToTextFile(trgPath, aLine)
    Next i
End Function