
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 alreadyFunction 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 IfEnd Function