26 lines
712 B
VB.net
26 lines
712 B
VB.net
Imports ECM.JobRunner.Windows.Scheduler.Jobs
|
|
Imports Quartz
|
|
|
|
Namespace Scheduler.Jobs
|
|
Public Class FileIndexJob
|
|
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 Index [{0}]", oName)
|
|
|
|
Dim oResult = New JobResult() With {
|
|
.Description = $"File Index Job [{oName}] completed!"
|
|
}
|
|
|
|
context.Result = oResult
|
|
|
|
CompleteJob()
|
|
Return Task.FromResult(True)
|
|
End Function
|
|
End Class
|
|
End Namespace
|