Ejemplos usando el Api de windows para Visual basic

126 - Ejemplo del uso del Api GetShortPathName y GetLongPathName

Volver al Listado Api - Anterior - Siguiente

Estas dos funciones se utilizan para convertir un path largo en formato corto o un Path Corto en formato largo.

Las dos funciones, requieren en el primer parámetro el path a convertir, y en el segundo parámetro un Buffer que retorna la ruta o Path

Ejemplo del Api GetShortPathName

Option Explicit 'Declaración del Api para obtener el path en formato Corto Private Declare Function GetShortPathName _ Lib "kernel32" _ Alias "GetShortPathNameA" ( _ ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal lBuffer As Long) As Long Public Function Obtener_Path_corto(Path_File As String) As String Dim Ret As Long, Buffer As String 'Buffer que retornará el Path Buffer = String$(165, 0) Ret = GetShortPathName(Path_File, Buffer, 164) Obtener_Path_corto = Left$(Buffer, Ret) End Function Private Sub Form_Load() Text1 = Obtener_Path_corto("c:\Un Archivo largo.txt") 'El api GetShortPathName Devuelve en este caso: -> c:\UNARCH~1.TXT End Sub

Ejemplo del Api GetLongPathName:

Option Explicit 'Declaración del Api para convertir un path corto a largo Private Declare Function GetLongPathName _ Lib "kernel32.dll" _ Alias "GetLongPathNameA" ( _ ByVal lpszShortPath As String, _ ByVal lpszLongPath As String, _ ByVal cchBuffer As Long) As Long Private Sub Form_Load() Dim Path_Archivo As String ' Buffer Path_Archivo = String(255, 0) ' Se le pasa el Path en formato de nombre corto y _ devuelve en el Buffer el nombre en formato Largo Call GetLongPathName("c:\UNARCH~1.TXT", Path_Archivo, 255) 'Se remplazan los caracteres nulos de la devolución Path_Archivo = Replace(Path_Archivo, Chr(0), vbNullString) MsgBox Path_Archivo, vbInformation End Sub

Enlaces relacionados

Buscar en Recursos vb