Insertar fin de archivo manualmente

[totigo]

Para fin de linea usas las constantes de vb:

vbCr
vbCrLf

CR/LF (retorno de carro + avance de línea)
13 o "retorno de carro" (en hexadecimal 0D)
10 o "avance de línea" (en hexadecimal 0A)

Para fin de archivo, usas caracter de control 'Fin de Archivo' 26 en decimal (en hexadecimal 1A):

chr(26)


La verdad nunca he tenido la necesidad de usarlos en mis desarrollos.


Ejemplo de como generar un archivo plano:

Código vb:

Dim fnum As Integer
Dim FileName As String
 
    FileName = "c:\prueba.txt"
 
    
        fnum = FreeFile()
        Open FileName For Output As #fnum
        
        For i = 0 To 10
            linea = "Linea numero " & i
            Print #fnum, linea
        Next i
 
        Close #fnum
 
        MsgBox "Hecho! Se ha generado el archivo.", vbInformation