Código:
El código funciona perfectamente para acortar rutas tipo "C:\Archivos de Programa\Mi programa y mi ruta con espacios", pero no hace nada cuando intento convertir rutas en red tipo "\\mi disco en red\mi carpeta con nombre largo y espacios". ¿Alguna ayuda? Public Function AcortarPath(Ruta As String) As String Dim sBuf As String * 260 Dim i As Long i = GetShortPathName(Ruta, sBuf, Len(sBuf)) AcortarPath = Left$(sBuf, i) End Function