åbne fil og læse linje for linje - bag fra
Hej EksperterJeg forsøger at lave et program der kan vende en tekstfil om linje for linje.
Jeg har styr på at åbne filen og generere en ny fil til output, men jeg kan simpelthen ikke læse den gamle fil fra bunden og op og fylde indholdet i den nye oppe fra og ned...
Jeg ville gå filen igennem som et Recordset og har forsøgt med:
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fil = fso.OpenTextFile("c:\test.txt")
Set NyFil = fso.CreateTextFile("c:\testOmv.txt")
Fil.MoveLast '<<< Her fejler programmet
Do While Not Fil.BOF
NyFil.Writeline Fil.Readline
Fil.MovePrevious
Loop
Fil.Close
NyFil.Close
Set Fil = Nothing
Set NyFil = Nothing
Set fso = Nothing