fácil - > VB6 abrir un txt y almacenar en una variable

[dazkot v3]

aclaro: nunca (hasta ayer) habia intentado programar...

creo que es fácil:

para visual basic 6
usando un botón (command1), quiero que se abra la ventana de 'abrir archivo' (tengo entendido que se usa el control commondialog), seleccionar un archivo .txt en el disco duro(únicamente archivos *.txt), y que este se almacene en una variable tipo string.

pero no me sale, ya revisé ejemplos y rutinas de otros sitios, eso de la programación no se me da.


si alguién me puede ayudar; mil gracias!

[rafapaskual]

Hola, muy rápido te rindes si empezaste a programar ayer y ya dices que no se te da... Mandanos el código a ver que te podemos decir. Los controles que usas son correctos, como abres el archivo?

Saludos!

[dazkot v3]

esta es:

Private Sub Command1_Click()
Dim c As String
Dim filtros As String
Dim l As Variant
On Error GoTo eabrir
commondialog1.Cancelerror = True
filtros = "archivos de texto(*.txt)|*.txt"
commondialog1.Filter = filtros
commondialog1.showopen
c = commondialog1.FileName
l = FileLen(c)
Open c For Input As #1
Text.Text = Input$(l, #1)
Close
esalirabrir:
Exit Sub
eabrir:
MsgBox "error", 16, "error"
Resume esalirabrir
End Sub



si le quito el "on error goto ....."
me dice que se requiere un objeto

[Gogetato]

Mensaje Original por dazkot v3
esta es:

Private Sub Command1_Click()
Dim c As String
Dim filtros As String
Dim l As Variant
On Error GoTo eabrir
commondialog1.Cancelerror = True
filtros = "archivos de texto(*.txt)|*.txt"
commondialog1.Filter = filtros
commondialog1.showopen
c = commondialog1.FileName
l = FileLen(c)
Open c For Input As #1
Text.Text = Input$(l, #1)
Close
esalirabrir:
Exit Sub
eabrir:
MsgBox "error", 16, "error"
Resume esalirabrir
End Sub



si le quito el "on error goto ....."
me dice que se requiere un objeto

amigo, revise tu codigo, cuando le quito lo del mensaje de error lo q hace tu codigo es leer el archivo de texto y trae lo q tenga escrito al campo texto, kchai?
en todo kso acato esta el codigo q hice funcionar.

Dim c As String
Dim filtros As String
Dim l As Variant
'On Error GoTo eabrir
'commondialog1.Cancelerror = True
filtros = "archivos de texto(*.txt)|*.txt"
CommonDialog1.Filter = filtros
CommonDialog1.showopen
c = CommonDialog1.FileName
l = FileLen(c)
Open c For Input As #1
Text.Text = Input$(l, #1)
Close
esalirabrir:
Exit Sub
'eabrir:
'MsgBox "error", 16, "error"
'Resume esalirabrir

asi es q eso creo q querias, o nop?

[dazkot v3]

me da un error

error '442' en tiempo de ejecución :
se requiere un objeto.


al poner 'depurar', me manda a la línea
CommonDialog1.Filter = filtros



no logro que al oprimir el botón salga la venta 'abrir archivo'

[Gogetato]

Mensaje Original por dazkot v3
me da un error

error '442' en tiempo de ejecución :
se requiere un objeto.


al poner 'depurar', me manda a la línea
CommonDialog1.Filter = filtros



no logro que al oprimir el botón salga la venta 'abrir archivo'

activaste el commonDialog en los componentes? y lo insertaste en el formulario?
para activar la preferencia tienes q ir a :

barra de menu --> proyecto --> componentes (o solo presionando Control T)

en la etiqueta "controles" busca uno q dice "Microsoft Common Dialog Control 6.0 (SP3)"

cuando lo agreges en la barra de herraminetas va a salir un botoncito para q lo agregues en el formulario (no te perocules q es invisible porciaca en tiempo de ejecucion) y haslo funcionar y me cuentas, pro q yop aca esta funcionando impeque 100%

[dazkot v3]

ooooohh!!!!!!

tan simple!

gracias gogetato, me faltaba activar esa opción, ya funciona al 100%