Ejemplos usando el Api de windows para Visual basic

87 - Acortar y compactar un path

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1 - Función PathCompactPath
Ejemplo 2 - Función PathCompactPathEx
Relacionados

PathCompactPath

Esta función api llamada PathCompactPath puede ser muy útil si se desea visualizar paths en forma compacta, por ejemplo como muestra esta imagen:

Vista del mensaje al acortar un path

La función Api tiene un parámetro llamado DX, este parámetro es el que define el ancho que tendrá el path devuelto. Si este valor sobrepasa a la ruta el ejemplo no devuelve el path

Nota: esta función Api no verifica si el path existe, por lo tanto si le pasamos una ruta que no existe devolverá la cadena de todas formas.

Código fuente en un form

Option Explicit 'Api PathCompactPath Private Declare Function PathCompactPath _ Lib "shlwapi" _ Alias "PathCompactPathA" ( _ ByVal hDC As Long, _ ByVal lpszPath As String, _ ByVal DX As Long) As Long Private Sub Command1_Click() Dim Path As String, ret As Long, pos As Long, WidthPath As Long 'Path del archivo Path = "C:\Documents and Settings\usuario\Configuración " & _ "local\Archivos temporales de Internet\archivo.gif" 'Ancho del path en pixeles WidthPath = 100 'Le pasamos los parámetros al Api ret = PathCompactPath(Me.hDC, Path, WidthPath) 'Buscamos la posición del primer nulo pos = InStr(1, Path, Chr$(0)) 'Extremos a partir de esa posición y mostramos el path acortado If pos <> 0 Then MsgBox Left$(Path, pos - 1), vbInformation, _ "Ejemplo del Api PathCompactPath " End If End Sub

PathCompactPathEx

Este ejemplo muestra , como en el código anterior, como poder compactar un path o ruta, pero a diferencia del caso anterior en el que el tamaño o longitud de la ruta se establecía en pixeles, aqui se realiza por la cantidad de caracteres que se indiquen en el parámetro cchMax de la función.

Ejemplo

Option Explicit Private Declare Function PathCompactPathEx Lib "shlwapi.dll" Alias "PathCompactPathExA" (ByVal pszOut As String, ByVal pszSrc As String, ByVal cchMax As Long, ByVal dwFlags As Long) As Long ' ----------------------------------------------------------------------------------------- ' \\ -- Función para compactar la ruta ' ----------------------------------------------------------------------------------------- Function CompactPath(ByVal sPath, Optional lMaxChar As Long = 50) As String Dim ret As Long Dim sBuffer As String * 256 ' -- Enviar la ruta, la cantidad de caracteres, ' -- y enviar el buffer para retornar el path compactado ret = PathCompactPathEx(sBuffer, sPath, lMaxChar, 0) If InStr(sBuffer, Chr(0)) > 0 Then ' -- Eliminar los nulos antes de retornar CompactPath = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1) End If End Function Private Sub Form_Load() Dim sPath As String ' -- Pasar la ruta a la función y la cantidad de caracteres ( 40 ) sPath = CompactPath("C:\Archivos de programa\Microsoft " & _ "Visual Studio 8\MSDN Express Library", 40) MsgBox sPath, vbInformation ' -- Compactar a 30 sPath = CompactPath("C:\Archivos de programa\Microsoft Visual Studio 8" & _ "\Microsoft MSDN 2005 Express Edition - ESN\install.exe", 30) MsgBox sPath, vbInformation End Sub

Relacionados

Buscar en Recursos vb