Aver quien puede ayudarme
Publicado por MARTIN (198 intervenciones) el 05/03/2002 16:24:51
Hola a todos mi problema es que necesito abrir un archivo de texto para pegar al final nueva informacion,como en un log ya que el codigo que tengo ahora lo abre y encima la informacion nueva,este es el codigo que tengo saludos y de antemano gracias..
Dim lCtr As Control
Dim lStr As String
Dim FF As Byte
lStr = "c:\Agenda.txt"
FF = FreeFile
Open lStr For Output As #FF
Print #FF, " O R G A N I Z A D O R P E R S O N A L "
Print #FF, " "
Print #FF, " "
Print #FF, " "
Print #FF, "FECHA : " & Text2.Text
Print #FF, "HORA : " & horaActual
Print #FF, "NOTA IMPORTANTE : " & Text3.Text
Close #FF
Dim lCtr As Control
Dim lStr As String
Dim FF As Byte
lStr = "c:\Agenda.txt"
FF = FreeFile
Open lStr For Output As #FF
Print #FF, " O R G A N I Z A D O R P E R S O N A L "
Print #FF, " "
Print #FF, " "
Print #FF, " "
Print #FF, "FECHA : " & Text2.Text
Print #FF, "HORA : " & horaActual
Print #FF, "NOTA IMPORTANTE : " & Text3.Text
Close #FF
Valora esta pregunta


0