dividir ruta...

[vivachapas]

estuve pensando pero no se como hacerlo... es algo muy sencillo pero no puedo hacerlo! :S

quiero dividir por ejemplo esta cadena:

C:\Documents and Settings\Usuario Final\Escritorio

y q me quede asi:

C:\Documents and Settings\Usuario Final

pense en algun split q me divida por los "\" y elimine el ultimo y luego los junte y entre medio ponga de nuevo "\"
pero no se como saber cual es el ultimo...

[yeikos]

Código [Seleccionar] Expandir


Function fncDir(strDir As String)
Dim i, strVar As String
sptDir = Split(strDir, "\")

For i = 0 To UBound(sptDir) - 1
    strVar = strVar & sptDir(i) & "\"
Next

fncDir = strVar
End Function


[vivachapas]

muchas gracias... lo probe y me funciona muy bien