Ejemplos usando el Api de windows para Visual basic

27 - Cuadro de diálogo Abrir archivo y Guardar como de Windows

Las funciones Api para estos cuadros de diálogo son: GetOpenFileName ( Diálogo Seleccionar archivo ) y GetSaveFileName. ( diálogo guardar archivo )

Los 2 poseen un solo parámetro para enviar, en el cual le debemos enviar una estructura de datos llamada OPENFILENAME, la cual establece las diferentes opciones de los cuadros de diálogo y algunas otras cosas, como por ejemplo el título del mismo, las extenciones a mostrar en el diálogo (el Filter) , tipos de archivos por defecto a mostrar, el directorio inicial donde se debe ubicar el cuadro de diálogo cuando se abre, el Hwnd del formulario que hace la llamada, Flags, y algunas otras

Cuadro de diálogo Abrir archivo ( Función GetOpenFileName )

Colocar un control Commandbutton.

Código fuente en el formulario

Option Explicit ' Función Api GetOpenFileName _ para abrir el cuadro de diálogo seleccionar archivo Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" ( _ pOpenfilename As OPENFILENAME) As Long ' Estructure de datos _ OPENFILENAME para usar con GetOpenFileName Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Sub Command1_Click() Dim OFName As OPENFILENAME With OFName .lStructSize = Len(OFName) 'Establecemos el hwnd del form .hwndOwner = Me.hWnd 'Establecemos el numero de instancia de la aplicacion .hInstance = App.hInstance 'Establecemos el filtro de archivos a mostrar, _ en este caso txt y todos los ficheros .lpstrFilter = "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + _ "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0) 'Acá debemos crear un buffer para el archivo .lpstrFile = Space$(254) 'Establecemos el tamaño maximo retornado .nMaxFile = 255 'Creamos un buffer para el titulo del archivo .lpstrFileTitle = Space$(254) 'Establecemos el tamaño maximo retornado .nMaxFileTitle = 255 'Establecemos el directorio por defecto que mostrará el dialogo .lpstrInitialDir = "C:\Windows" 'El title .lpstrTitle = "Abrir archivos" 'Flasgs que detereminan caracteristicas del dialogo .flags = 0 End With 'Abrimos el cuadro de diálogo pasándole _ a GetOpenFileName la estructura anterior If GetOpenFileName(OFName) Then MsgBox "Seleccionó: " + Trim$(OFName.lpstrFile) Else MsgBox "Se canceló" End If End Sub Private Sub Form_Load() Command1.Caption = "Abrir CommonDialog" End Sub

Cuadro de diálogo Guardar como ( Función GetSaveFileName )

En este caso también agregar un control CommandButton.

Option Explicit 'Función Api GetSaveFileName que _ llama al cuadro guardar como de windows Private Declare Function GetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" ( _ pOpenfilename As OPENFILENAME) As Long ' UDT OPENFILENAME para el api GetSaveFileName Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type ' Variable para utilizar la estructura de la función Api Dim OFName As OPENFILENAME Private Function GuardarComo() As String With OFName 'Establecmos el tamaño de la extructura .lStructSize = Len(OFName) 'Establecmos el hwnd de la aplicación, es decir _ la del form que llama al diálogo .hwndOwner = Me.hWnd 'Acá la instancia .hInstance = App.hInstance 'Establecemos los filtros de extension que mostrá '.lpstrFilter = "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + _ "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0) 'Le pasamos un buffer al nombre de archivo .lpstrFile = Space$(254) 'Debemos establecer el maximo de caracteres del buffer anterior .nMaxFile = 255 'Lo mismo pero para el título del diálogo de windows .lpstrFileTitle = Space$(254) 'Debemos establecer el maximo de caracteres del buffer .nMaxFileTitle = 255 'Establecemos el drectorio inicial que mostrará el diálogo .lpstrInitialDir = "C:\" 'Establecemos el titulo .lpstrTitle = "Guardar archivo como" 'Los flags .flags = 0 End With 'Mostramos el dialogo pasandole la estructura a la función Api GetSaveFileName If GetSaveFileName(OFName) Then GuardarComo = Trim$(Replace(OFName.lpstrFile, Chr(0), "")) Else GuardarComo = "" End If End Function Private Sub Command1_Click() Dim sFile As String 'sFile almacenará el path completo que nos interesa sFile = GuardarComo 'Comprobamos que no sea una cadena vacia If sFile <> "" Then MsgBox "Ruta elegida " + sFile Else MsgBox "Cancelar" End If End Sub Private Sub Form_Load() Command1.Caption = "Abrir CommonDialog" End Sub

Nota:

También podés descargar este módulo de clase que agrupa todos los diálogos comunes de windows :

Descargar

Recursos Visual basic - Enlaces relacionados

Cuadro de diálogo - Página con listado de ejemplos

Buscar en Recursos vb