¿Cómo usar el diálogo abrir archivo en VB 6?

Question

Soy nuevo en VB 6

Deseo seleccionar un archivo del directorio u otro sistema. ¿Cómo usar el diálogo de abrir archivos en VB 6?

Necesita VB 6 Ayuda Código.

Answer 1

Hay un código de ejemplo en this question. Citando:

En Visual Basic 6, se añade el componente:

• Proyecto> Componentes
• En la ficha Controles, seleccione Microsoft Common Dialog Control 6.0 (SP6)

Ahora en su forma, agregue el nuevo control Common Dialog desde la caja de herramientas

En el código, necesita:

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.DialogTitle = "Select File" 
CommonDialog1.ShowOpen 

'The FileName property gives you the variable you need to use 
MsgBox CommonDialog1.FileName 

Answer 2

que necesitaba el "1", pero funciona muy bien gracias

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.DialogTitle = "Select File" 
CommonDialog1.ShowOpen 

'La propiedad FileName le da la variable es necesario utilizar MsgBox CommonDialog1.filename