Código:
no se si es por que es viernes y ya mi cabeza no me da pa pensar
Jajaja no eres el único... yo hace mucho tiempo que no programo y hoy llego y estoy cansado que ni ganas de pensar tengo..
Pero veo que tu problema me ha reanimado :P
Código:
<%
On Error Resume Next
Dim fso, leer, folder,abrir,remplazo
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(".")
For each ficheros in folder.Files
if(Instr(ficheros,".htm")) then
set leer = fso.OpenTextFile(ficheros,1)
remplazo = replace(leer.ReadAll,"<!--#include file=""../../funciones/funciones.asp""-->","<!--#include virtual=""funciones/funciones.asp""-->")
leer.close
set abrir = fso.OpenTextFile(ficheros,2)
abrir.Write remplazo
abrir.close
Response.Write "Remplazo con éxito"
end if
Next
Set fso = nothing
Set folder = nothing
%>
No es eso lo que querías? jeje...
un saludo.