34 lines
884 B
VB.net
34 lines
884 B
VB.net
Imports ECM.JobRunner.Windows.Scheduler.Jobs
|
|
Imports Quartz
|
|
|
|
|
|
Namespace Scheduler.Jobs
|
|
Public Class FileImportJob
|
|
Inherits BaseJob
|
|
Implements IJob
|
|
|
|
Public Function Execute(context As IJobExecutionContext) As Task Implements IJob.Execute
|
|
Dim oArgs = MyBase.InitializeJob(context)
|
|
Dim oName = oArgs.Item("Name")
|
|
|
|
Logger.Info("Running File Import [{0}]", oName)
|
|
|
|
Dim oMax = 100
|
|
For index = 1 To oMax
|
|
UpdateProgress(index, oMax)
|
|
Threading.Thread.Sleep(100)
|
|
Next
|
|
|
|
Dim oResult = New JobResult() With {
|
|
.Description = $"File Import Job [{oName}] completed!"
|
|
}
|
|
|
|
context.Result = oResult
|
|
|
|
CompleteJob()
|
|
Return Task.FromResult(True)
|
|
End Function
|
|
End Class
|
|
|
|
End Namespace
|