private sub DownloadFile(file, folio, tipo)
  Set GetConnection = CreateObject("Microsoft.XMLHTTP")
  GetConnection.Open "get", file, False
  GetConnection.Send
  ResponsePage = GetConnection.responseText
  Response.addHeader "content-disposition", "attachment; filename=" & "nombreArchivo"
  Response.ContentType = "application/octet-stream"
  Response.Write ResponsePage
  Response.Flush()
  Response.End()
  Set GetConnection = Nothing
end sub