Sletning af linje i vbs

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=133

//>Rune

Fx.

set fs=CreateObject("Scripting.FileSystemObject")
set ftemp=fs.CreateTextFile("c:\inetpub\wwwroot\eksperten\temp.txt",true)
Set f=fs.OpenTextFile("c:\inetpub\wwwroot\eksperten\rigtigfil.txt", 1)

linjeNo = 1
sletLinje = 10
do while f.AtEndOfStream = false
  tempLine = f.ReadLine
  'Test om det er denne linje som ikke skal skrives i den nye fil
  if Int(linjeNo) = Int(sletLinje) then
    ftemp.writeline (tempLine)
  end if
  linjeNo = linjeNo + 1
loop
'Luk filerne
f.Close
ftemp.Close
'Slet den gamle fil:
set f=fs.GetFile("c:\inetpub\wwwroot\eksperten\rigtigfil.txt")
f.Delete
'Omdøb temp filen til det rigtige filnavn
set f=fs.GetFile("c:\inetpub\wwwroot\eksperten\temp.txt")
f.Move("c:\inetpub\wwwroot\eksperten\rigtigfil.txt")
Set f = nothing
Set ftemp = nothing

//>Rune