<% function titulo(cuerpo) gg=Split(cuerpo,"H4>") titulo=replace(gg(1),"") totalp=Ubound(divisionp) For j=1 to totalp divisioncomilla=Split(divisionp(j),CHR(34)) totalc=Ubound(divisioncomilla) For yu=2 to totalc aux=replace(divisioncomilla(yu),"","") aux=replace(aux,"","") opc=Split(aux,"") if UBound(opc)>0 then liga=replace(opc(0),">"," ") liga=replace(liga," "," ") aux=replace(aux,"   ","
") linea=linea & "

) creado.writeline() creado.writeline(Tablas de Contenido ) creado.writeline() creado.Writeline() creado.writeline() creado.WriteLine() creado.WriteLine() creado.WriteLine(

& archivo &

) creado.WriteLine(
Suscripción actual CIDE

) creado.WriteLine 'Anexar lineas creado.Write(link(Fichero.Readall)) 'response.End() creado.WriteLine() creado.Writeline(
) creado.writeline() creado.writeline(
) creado.WriteLine() creado.WriteLine() ' Anexar final del archivo Set fichero=Nothing 'Creado el archivo con su cabecera end function Dim FSO, oCarpeta, colFicheros, fichero, oFichero Dim sContenido set FSO = Server.CreateObject("Scripting.FileSystemObject") set oCarpeta = FSO.GetFolder(Server.MapPath ("recive") & "\") set colFicheros = oCarpeta.Files for each fichero in colFicheros rr=Server.MapPath("recive") & "\"& fichero.name rrr=fichero.name migrar(rrr) Set totos = FSO.OpenTextFile (Server.MapPath ("tablas") & "\report.log",8,true) totos.writeline("Se migro el archivo " & rrr & ", hora:" & now() ) set totos = nothing response.write ("Se migro el archivo " & rrr & ", hora:" & now() &"
") 'set borrar = Server.CreateObject("Scripting.FileSystemObject") 'borrar.DeleteFile(rr) next set colFicheros = nothing set oCarpeta = nothing set FSO = nothing %>