'Espero que esto te ayude!!
'
'Ejecuta esto en un formulario nuevo
'"para que lo pruebes"
'Necesitas:
' 1 CommonDialog
' 2 Botones : Propiedad Nombre=cmdAbrirArchivo
' Nombre=cmdCerrar
' 1 Textbox : Propiedad MultiLine=true
' ScrollBars=Vertical
'luego pega el codigo siguiente y ya!!
'Harold Valdivia :
[email protected]
Option Explicit
Dim cadena, cad, Ncad As String
Dim temp, temp2 As Variant
Private Sub cmdAbrirArchivo_Click()
With CommonDialog1
.DialogTitle = "Abrir Archivo de texto ..."
.Filter = "*.txt|*.txt|"
.InitDir = "D:\Mis Documentos"
.ShowOpen
Open .FileName For Input As #1
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Input #1, cadena ' Obtiene una cadena
temp = cadena & vbCrLf 'muestra la primera linea y luego enter
temp2 = temp2 & temp
Text1 = temp2 'contenido del archivo
Loop
Close #1
cad = Text1
End With
End Sub
Private Sub cmdCerrar_Click()
Dim r As Integer
If Len(Text1.Text) <> Len(temp2) Then
r = MsgBox("Desea guardar los cambios antes de salir?", vbInformation + vbOKCancel, "Seguridad de Datos")
If r = vbOK Then
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output