Cita: 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?
