Public Function backslash(ByVal sPath As String) As String
        If sPath.Trim <> "" Then
            If sPath.EndsWith("\") Then
                Return sPath
            Else
                Return sPath & "\"
            End If
        Else
            Return String.Empty
        End If
    End Function