Public Function RemoveBackSlash(ByVal sPath As String) As String
'Returns sPath without a trailing backslash if sPath 'has one. Otherwise, returns sPath. sPath = Trim$(sPath) If Len(sPath) > 0 Then sPath = Left$(sPath, Len(sPath) - IIf(Right$(sPath, 1) = _ "\", 1, 0)) End If RemoveBackSlash = sPath End Function |