DelBackSlash

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