Dim Ruta As String
        Dim path As String
        Dim archivo As String

        Ruta = "c:\carpeta1\carpeta2\carpeta3\archivo.exe"
        'Ruta = "/etc/conf.conf"

        If Ruta.IndexOf("\") > -1 Then
            path = Ruta.Substring(0, Ruta.LastIndexOf("\") + 1)
            archivo = Ruta.Substring(Ruta.LastIndexOf("\") + 1)
        ElseIf Ruta.IndexOf("/") > -1 Then
            path = Ruta.Substring(0, Ruta.LastIndexOf("/") + 1)
            archivo = Ruta.Substring(Ruta.LastIndexOf("/") + 1)
        Else
            MsgBox("Ruta no valida")
        End If