archivo txt

lorrich
03 de Enero del 2004
Como puedo abrir un archivo de texto desde un boton?preferiblemente de solo lectura.
Tambien me gustaria saber si se puede hacer que me abra una formulario con el contenido de dicho archivo?
Gracias.

Baltasar
03 de Enero del 2004
Crea un formulario con un textbox y un commandbutton, pon la propiedad multiline del textbox a true, y agrega el siguiente código:

Private Sub Command1_Click()
Dim F As Integer
Dim L As Long
Dim MF As String
F = FreeFile
MF = "c:psrueba.txt"
If Dir(MF) <> "" Then
L = FileLen(MF)
Open MF For Binary Access Read As F
Text1 = Input(L, F)
Close F
Else
MsgBox "El Fichero " & MF & " no existe", vbInformation
End If
End Sub

Por supuesto, modifica el nombre del fichero por uno que exista en tu disco duro.

Saludos y Feliz Año Nuevo.

lorrich
03 de Enero del 2004
Muchas gracias, me fue de gran ayuda.

Ahora como hago para que si el archivo se me va de tamaño en el texbox me aparezcan scrolls?

Gracias y cuidado con esta noche.

Baltasar
03 de Enero del 2004
Ves en las propiedades del textbox una cosa que se llama ScrollBars?

Saludos