FSO: læse en txt fil og overføre data til en ny generet fil

Jeg går ud fra at nyeste linie er den nederste, korrekt?
Det gør det lidt mere irriterende, men:

<%

Dim oFS, oFile
Dim sEntireFile, aLines
iFileCnt, iLineCnt

Set oFS = Server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile(Server.MapPath("dinfil.txt"),1, False)

sEntireFile = oFile.ReadAll

oFile.Close
Set oFile = Nothing

aLines = Split(sEntireFile,vbNewLine)

iLineCnt = UBound(aLines)-1
If(iLineCnt =>200) Then
  Do While iLineCnt => 0
    sNewFile = aLines(iLineCnt-199) & vbNewLine _
              &aLines(iLineCnt-179) & vbNewLine _
              &aLines(iLineCnt-159) & vbNewLine _
              &aLines(iLineCnt-139) & vbNewLine _
              &aLines(iLineCnt-119) & vbNewLine _
              &aLines(iLineCnt-99) & vbNewLine _
              &aLines(iLineCnt-79) & vbNewLine _
              &aLines(iLineCnt-59) & vbNewLine _
              &aLines(iLineCnt-39) & vbNewLine _
              &aLines(iLineCnt-19) & vbNewLine _
              &aLines(iLineCnt) & vbNewLine

    oFile = oFS.CreateTextFile(Server.MapPath("dinfil.txt"), True)
    oFile.Write(sNewFile)
    oFile.Close()
    Set oFile = Nothing

    iLineCnt = iLineCnt - 200
  Loop
End If

%>


Noget i den retning, men dine filnavne skal self. være dynamiske.

rou: det ser meget godt ud, jeg er også villig til at give dig pointsne for det, men jeg får en fejl 500.. så jeg kan ikke lige se hvor det ikke virker... ;(

Slå "friendly error messages" fra i din browser, under options--> advanced

Det er den skam... det er et eller andet random syndrom, for jeg får for det meste en uddybende debug, men nogle gange viser den altså bare en standard fejlside... ;(

hmm, så skal du ind i IIS og ændre den default fejlside den viser, for 500.100, tror jeg det er.

Hmm jeg måtte en tur i IIS, nu kan jeg se problemet...
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method

/rep.asp, line 41

lidt underligt, det er der den opretter den nye fil...

Jeg er nødt til at hoppe i seng, jobbet passer desværre ikke sig selv imorgen tidlig.
Pyt med pointene, det var alligevel for mange du satte på.

Det er ligemeget... :) jeg bruger Eksperten så sjællent så når jeg gør, er det lidt ligemeget med point...

Jeg har fundet fejlen, den kalder Write, som er en Textstream kommando ikke en FSO, jeg har fikset det.

Men mange tak for hjælpen, nu tror jeg at jeg kan klare mig selv :)