Open File - Cancellare un "a capo"

[oregon]

Con un codice del genere

    Dim d() As Byte
    Dim fh As Integer
    
    fh = FreeFile()
    Open "file.txt" For Binary As #fh
    ReDim d(1 To LOF(fh) - 2)
    Get #fh, , d
    Close #fh

    fh = FreeFile()
    Open "nuovo_file.txt" For Binary As #fh
    Put #fh, , d
    Close #fh

potresti creare un secondo file corretto ...