Programación de ayuda en Vb

1. Inicie vb6.

2. Agregue Microsoft Common Dialog Control 6.0 (SP6) en Menú-Proyecto-Partes.

3. Agregue CommonDialog1 y Command1 al formulario.

4. Código del programa:

Subcomando privado 1_Click()

Establezca "CancelError" en Verdadero.

CommonDialog1. CancelError = True

Ir al controlador de errores en caso de error

Establecer indicador

CommonDialog1. Flags = cdlOFNHideReadOnly

Establecer filtro

CommonDialog1. Filter = "Todos los archivos (*.*)|*.*|Archivos de texto" & amp_

"(*.txt)|*.txt|Archivos por lotes (*.bat)|*.bat ”

Especifique el filtro predeterminado.

CommonDialog1. FilterIndex = 2

Muestra el cuadro de diálogo "Abrir".

CommonDialog1. ShowOpen

Muestra el nombre del archivo seleccionado.

MsgBox CommonDialog1. Nombre de archivo

Export Connector

Manejador de errores:

"El usuario presionó el botón Cancelar.

Export Connector

Conector final