Bueno, ya lo tengo resuelto, al final lo que hago es ir recorriendo el archivo y mientras que no se cumple la condición voy escribiendo las lineas en un archivo nuevo. Cuando ya se cumple dejo de escribir. A continuación solo falta borrar el archivo antiguo y renombrar el nuevo. Os dejo el código por si le sirve a alguien, falta la parte final de borrar y renombrar archivos.
Código ASP:
Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Const Filename = "./exportacion/prueba.csv" ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
nombre_archivo = "pruebas_nuevo.csv"
PathXLS = Server.MapPath("./exportacion/"&nombre_archivo)
set fsob = CreateObject("Scripting.FileSystemObject")
set fs = fsob.CreateTextFile(PathXLS, true)
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
' Get a handle to the file
Dim file
set file = FSO.GetFile(Filepath)
' Get some info about the file
' Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
' Read the file line by line
dim contador
contador=1
fecha_limite=date-30
Do While Not TextStream.AtEndOfStream
Dim Line
Line = TextStream.readline
if contador>1 then
' Do something with "Line"
campos = split(line,";")
fecha_limite=cdate(fecha_limite)
fecha_actual=cdate(campos(1))
if fecha_actual>fecha_limite then
no_sale=1
end if
' Line = Line & vbCRLF
if no_sale<>1 then
fs.writeline(Line)
end if
end if
contador=contador+1
Loop
Set TextStream = nothing
Else
Response.Write "<h3><i><font color=red> File " & Filename &_
" does not exist</font></i></h3>"
End If
Set FSO = nothing
%>