estuve pensando pero no se como hacerlo... es algo muy sencillo pero no puedo hacerlo! :S
quiero dividir por ejemplo esta cadena:
CitarC:\Documents and Settings\Usuario Final\Escritorio
y q me quede asi:
CitarC:\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...
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
muchas gracias... lo probe y me funciona muy bien ;)