Ejemplos usando el Api de windows para Visual basic

98 - GetFileTitle - Obtener nombre de archivo de un path

Volver al Listado Api - Anterior - Siguiente

Este ejemplo muestra como utilizar el Api GetFileTitle para separar de un path solo el nombre del fichero, por ejemplo si tenemos "c:\windows\plumas.bmp" la función retornará Plumas.bmp.

Nota: La función Api no verifica si el archivo existe en el disco, es decir si el path es correcto, por lo que si le pasamos un path inexistente el mismo retornará el nombre de todas formas.

Controles

Colocar un Command1 y especificar en la función el path

Código fuente en un formulario

Option Explicit 'Declaración del Api GetFileTitle Private Declare Function GetFileTitle _ Lib "comdlg32.dll" _ Alias "GetFileTitleA" ( _ ByVal lpszFile As String, _ ByVal lpszTitle As String, _ ByVal cbBuf As Integer) As Integer Private Function Obtener_Nombre_Archivo(p As String) Dim Buffer As String 'Buffer de caracteres Buffer = String(255, 0) 'Llamada a GetFileTitle, pasandole el path, el buffer y el tamaño GetFileTitle p, Buffer, Len(Buffer) 'Retornamos el nombre eliminando los espacios nulos Obtener_Nombre_Archivo = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1) End Function Private Sub Command1_Click() 'Mostramos el nombre del archivo separado del Path MsgBox Obtener_Nombre_Archivo("c:\windows\explorer.exe") End Sub

Enlaces relacionados

Extraer la extensión de un archivo - Ruta

Buscar en Recursos vb