Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/03/2009, 11:43
Avatar de Sergestux
Sergestux
 
Fecha de Ingreso: agosto-2007
Ubicación: Tapachula
Mensajes: 1.218
Antigüedad: 17 años, 9 meses
Puntos: 20
Insertar fin de archivo manualmente

Alguien me podria decir como puedo hacerle para escribir un archivo de texto e incluirle un fin de archivo hasta el final.

Es que estoy generando unos archivos de un layout que me pasaron donde me indican que al final, debo incluirle un caracter de fin de archivo (para windows)
Código:
Archivo = App.Path & "\Archivo.txt"
 Open Archivo For Output As #1

        For CONT = 1 To X
            Print #1, Datos     'Aca lleno los datos
        Next CONT
        Print #1, Chr("\0")       'Aca quiero meterle el fin de linea
  Close #1