mmmmmmm, vaya, vaya. Efectivamente estas dos lineas corren sin problemas, ya lo he constatado:
Código:
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.OpenTextFile(Server.MapPath("prueba\setup.log"))
Pero el error es claro........¿que te parece si intentamos desinstalar el IIS y reinstalarlo?
Para pruebas usa el mismo script que tienes (que debe funcionar bien, así como esta) o usa este otro:
Código:
ruta = "db\recetas.txt"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If (fso.fileExists(Server.MapPath(ruta))) Then
set archivo = fso.openTextFile(server.mapPath(ruta))
listado = archivo.ReadAll
Response.Write (listado) 'Te mostrará el contenido del archivo pero sin saltos de linea
Else
Response.Write "No se encontró el archivo (" & ruta & ")"
End If