AddBackSlash

Public Function AddBackSlash(ByVal sPath As String) As String
'Returns sPath with a trailing backslash if sPath does not

'already have a trailing backslash. Otherwise, returns sPath.

sPath = Trim$(sPath)
If Len(sPath) > 0 Then
sPath = sPath & IIf(Right$(sPath, 1) <> "\", "\", "")
End If
AddBackSlash = sPath
End Function