archivo txt
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.
Tambien me gustaria saber si se puede hacer que me abra una formulario con el contenido de dicho archivo?
Gracias.
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.
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.
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.
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.