buenas tengo en una variable string una ruta de mi pc por ejemplo...

C:\Archivos de programa\

haber si me podeis ayudar, lo que yo quiero conseguir es una funcion o algo que las carpetas me las ponga en su version reducida por ejemplo:

C:\Archiv~1\

Muchisimas Gracias

Se puede hacer así:

Código:

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
 (ByVal lpszLongPath As String, ByVal lpszShortPath As String, _
 ByVal cchBuffer As Long) As Long
Public Function RutaCorta(strRutaLarga) As String
 Dim RetVal As Integer
 Dim Buffer As String * 260
 RetVal = GetShortPathName(strRutaLarga, Buffer, 260)
 RutaCorta = Buffer
End Function

Saludos.

muchas gracias me ha servido de ayuda...

una ultima pregunta se que no es de VB pero esque tambien estoy buscando lo mismo para PHP sabes como se puede hacer o algo??

muchisimas Gracias