Hej!
Finns det ett snabbare sätt att göra append på en existerande fil än denna?

Filnum = FreeFile
Open AppPath + "DKKONT.DAT" For Input
Lock Read As #Filnum
Filnum1 = FreeFile
Open AppPath1 + "DKKONT.DAT" For Append
Lock Write As #Filnum1
Do While Not EOF(Filnum)
Input #Filnum, Inp
Print #Filnum1, Inp
Loop
Close #Filnum
Close #Filnum1
/Bo

open "path" for append as #filnummer

(OJSAN måste ha vart trött när jag svarade på detta inlägg.)

Vänligen bortse från detta är ni snälla.


/[peter.h]

Har fallit bort i inklistringen...
Inga förslag?

Hej
En stilfråga som gör Loopen något snabbare,ganska
betydelselöst men ändå.
>Do While Not EOF(Filnum)
Do Until EOF(Filnum)
Annars är det väl helt Ok

tycker
Sven

open "filnamn" for append as #1
open "andra filnamnet" for append as #2

do
line input #1, inp
print #2, inp
loop while not eof(1)

close #1
close #2

......