Escribir datos de texto plano en VB 6

[LEBS]

Hola, buenas noches gente. Tengo una consulta para hacerles...

Necesito escribir en un archivo de texto datos que se ván a ir agregando. Para eso, uso el párametro APPEND de la instrucción OPEN. El tema está en que necesito que el archivo se genere con un encabezado pero no necesito que el encabezado se vaya repitiendo cada vez que voy agregando más datos al archivo ¿me explico?.

Probé con APPEND, pero me agrega tanto el encabezado como los datos cada vez que agrego... pero eso no es lo que busco.

Me gustaría por favor que me den una mano con esto porque es para un sistema que estoy creando.

Desde ya, les agradezco mucho.

Saludos.

[erbuson]

Simplemente, debes comprobar antes si el archivo existe. Si no existe le añades la cabecera, si existe simplemente grabas la linea de datos.

Saludos

[LEBS]

Claro, pero hay algo que no me queda claro. Si añadís la cabecera porque no existe obviamente se crea el archivo y se añade. Luego después se añaden los demás datos. El tema es que, si el archivo existe hay que hacer que añada solamente los datos y no la cabecera (porque ya existe) y eso es lo que no me sale...

Saludos erbuson.

[erbuson]

Hola puede ser con algo similar a esto. Es la idea.

Código vb:

Private Sub Command1_Click()
  Dim Archivo As String
  Archivo = "C:\mifichero.txt"
  If Dir(Archivo) = "" Then
    ' No Existe
    Open Archivo For Output As #1
    Print #1, "Cabecera"
  Else
    ' Existe
    Open Archivo For Append As #1
  End If
  
  Print #1, "Datos"
  Close #1
End Sub
 

Saludos

[LEBS]

erbuson, gracias... la verdad impresionante lo tuyo. Con eso estaba trabado, andaba cerca pero no me salía. Te agradezco infinitamente. Saludos y para lo que sea, ando por aca.