Hola. Estoy usando el siguiente código para acortar rutas largas tipo C:\Archivos de Programa y convertirlas en C:\Archiv~1 para usar comandos en ventana de comandos sin errores.
Código:
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
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?