Supongamos que tienen un PATH (ruta de carpeta) corta, como por ejemplo "C:\ARCHIV~1\". Y por algun motivo, quieren alargarla, ejemplo "C:\Archivos de programa\". Entonces creen un modulo y carguen, lo siguiente y utilicen esta funcion.
Código:
'----- Creado por CULD -----
'----- Alargar Path -----
'- Para llamar a esta funcion utilizar:
'Variable = AlargarPath(Ruta)
'- Donde RUTA es la ruta CORTA que se quiere alargar
'- IMPORTANTE: Si o si, la ruta debe existir en la PC, si no existe no puede alargar.
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, _
ByVal cchBuffer As Long) As Long
Public Function AlargarPath(Ruta As String) As String
Dim sBuf As String * 260
Dim i As Long
i = GetLongPathName(Ruta, sBuf, Len(sBuf))
alargarpatch = Left$(sBuf, i)
End Function