Save a todos los documentos de un Folder

Si actualizamos alguna regla de negocio y necesitamos hacer un Save a todos los documentos de un Folder, podemos ejecutar el siguiente script en gexec.asp (en gexec2.asp da timeout si hay muchos documentos)

Server.ScriptTimeout = 100000 ' Segundos
Set fld = dsession.FoldersGetFromId(9999)
Set dom = fld.Search("doc_id")
For Each node In dom.documentElement.childNodes
Set doc = fld.Documents(node.getAttribute("doc_id"))
  On Error Resume Next
  doc.Save
  vErr = Array(Err.Number, Err.Description)
  On Error Goto 0
  If vErr(0) <> 0 Then
    Response.Write "Error con el doc " & doc.Id & ": " & vErr(1) & "<br>"
    Response.Flush
  End If
Next
Response.Write "Proceso finalizado"
Server.ScriptTimeout = 90 ' Valor por defecto