Hola astut, espero esto te sirva
abre un formulario y en el formulario agrega un textbox y un boton
dentro del boton copia este codigo
Código:
On Error GoTo msgerror
On Error GoTo ErrCancelar ' para controlar el boton cancelar
CommonDialog1.CancelError = True ' para que salte cuando hay un error
CommonDialog1.Filter = "Archivos .Dat|*.Dat|Todos los archivos|*.*" ' filtro para los datos a mostrar
CommonDialog1.FilterIndex = 2 ' indicamos el filtro predeterminado
CommonDialog1.ShowOpen ' abrimos el dialogo de abrir
Text1 = CommonDialog1.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
msgerror:
MsgBox (Err.Description)
Esto funciona de la siguiente manera, se abrira un cuadro de dialogo, en donde seleccionas el archivo ke kieres y al momento de presionar el boton abrir, se copiara la direccion de donde se encuentra el archivo en el textbox ke pusiste en tu form.
Para ke esto funcione bien, debe agregar el componente Microsoft Common Dialog.
Saludos y suerte.