Escribir datos de texto plano en VB 6

[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