AddBackslash - Append a backslash to a path if needed

' Append a backslash (or any character) at the end of a path
' if it isn't there already

Function AddBackslash(ByVal Path As String, Optional ByVal ch As Char = "\"c) _
    As String
    If Not Path.EndsWith(ch) Then
        AddBackslash = Path & ch
    Else
        AddBackslash = Path
    End If
End Function