Separar la ruta de un archivo de este.

[Salco Brand]

Puede ser algo asi?

Código [Seleccionar] Expandir



        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