Skrive til en txt fil

dim bytFileNumber as byte
dim bytFileNumber2 as byte
dim strLine as string

    bytfileNumber = Freefile
    open "c:\mineksisterendefil.txt" for input as #bytfilenumber
    bytfilenumber2 = freefile
    open "C:\mineksisterendefilNY.txt" for output as #bytfilenumber2
    print #bytfilenumber2, "Start teksten"
    do while not EOF(Bytfilenumber)
        Line Input #bytfilenumber, strLine
        Print #bytFileNumber2, strLine
    loop
    print #bytfilenumber2, "Slut teksten"
    close     bytfilenumber
    close     bytfilenumber2
    kill "c:\mineksisterendefil.txt"
    name "c:\mineksisterendefilNY.txt" as "c:\mineksisterendefil.txt"

>> larsjordan
Virker perfekt, tak for koden.  :o))

Jeg skal ikke læse men kun skrive til filen i EOF og BOF

Tak, det virker...Kanon