Visual Basic - Cómo sacar la ventana de búsqueda de archivos (exa

Hola y gracias por adelantado.

Tengo un botón que necesito me saque la pantallita de búsqueda de archivos (examinar), pero al declararla no sé que opción elegir. Por ejemplo, yo hago:

Dim VentanaSeleccionFichero As File

Pero no sale nada. ¿Qué tipo de variable tengo que elegir en vez de 'File' para que al pulsar el botón me saque la ventana de examinar, para seleccionar un archivo ? No sé si habrá por ahí algún codiguillo básico de ejemplo...

De nuevo gracias y un saludo.

Buenas, creo que te refieres a cuadros de dialogo. Tienes que agregar el componente "Microsoft Common Dialog"

---------
Private Sub Command1_Click()

On Error GoTo ErrCancelar ' para controlar el boton cancelar
CommonDialog.CancelError = True' para que salte cuando hay un error

CommonDialog.Filter = "Archivos .Dat|*.Dat|Todos los archivos|*.*" ' filtro para los datos a mostrar
CommonDialog.FilterIndex = 2 ' indicamos el filtro predeterminado

CommonDialog.ShowOpen ' abrimos el dialogo de abrir
TxtRuta = Dialogo.FileName ' si no hay errores rescatamos la ruta del archivo

Exit Sub

ErrCancelar:

If Err.Number = 32755 Then ' comprobamos el numero del error, el 32755 es el de cancelar

MsgBox " Se presionó cancelar ", vbInformation

End If

End Sub
------------
saludos

no funciona, sale un error ke dice ke se requiere un objeto.

faltará alguna declaración??

añade un textbox llamado "TxtRuta " y cambia esta linea

TxtRuta = Dialogo.FileName ' si no .....

por esta otra.

TxtRuta = CommonDialog.FileName ' si no ....

saludos

no me aparece el componente Microsoft Common Dialog, me aparece este
Microsoft Common Dialog control 6.0, debe ser lo mismo, pero creo ke es un problema con el objeto, el programa se cae en la segunda linea

CommonDialog.CancelError = True ' aca se cae

ke sera ?? ke seraa????

mira que los he visto negados en esto pero lo tuyo es para caerse de espaldas

CommonDialog es el nombre que hayas puesto en la propiedad Name del control, por defecto CommonDialog1

ahi sii, jajaja sorry, con tanto codigo ya no funciono mucho.

eeyyy sin enojarse man

vale por la ayuda ;)

mira qu eres vacila payo...
soy vallekano como tu y si kieres algun dia kedamos para tomarnos unas cañas.
las pagas tu por haverte yo ayudado, eh vale !

Hola the gipsy,

El codigo tiene un error, por eso no le funcionaba al amigo.

Correcto
TxtRuta = CommonDialog.FileName


Saludos