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?

mmm, no sabía lo de las comillas. Me daba problemas con las rutas con espacios a la hora de llamar shell en vb6 y por eso comencé a usar la función para acortar las rutas, y funciona perfecto siempre que no sean rutas de red. Tendré que hacer pruebas con las comillas a ver que tal.

El programa lo estoy usando con versiones de windows en XP, Vista, Windows 7... Supongo que cuando te refieres a versiones antiguas de windows te refieres a versiones por lo menos anteriores a XP.

Saludos.