自定义PersistenceService类

该例自定义了一个将实例持久化到磁盘文的操作,分两部分
第一部分是实现PersistenceService类,第二部分是操作磁盘的功能类,本例中的[test]是一个自定义的console的输出类,功能就是实现console.write("内容")

实现PersistenceService类

Imports System
Imports System.Workflow.ComponentModel
Imports System.Workflow.Runtime.Hosting
Imports System.Collections.Specialized
Imports System.Workflow.Runtime

End Class

操作磁盘的功能类

Imports System.IO
Imports System.IO.Compression

'该类是将工作流实例保存到磁盘、从磁盘上加载的实体操作类

然后象加载SqlWorkflowPersistenceService类一样使用就可以了

Dim 引擎 As WorkflowRuntime = New WorkflowRuntime()
Dim 自定义PS As New 自定义Persistence服务(True) '为真时，引擎自动对进入idle模式的实例,调用Unload方法,
引擎.AddService(自定义PS)