27 lines
691 B
VB.net
27 lines
691 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 oResult = New JobResult() With {
|
|
.Description = $"File Import Job [{oName}] completed!"
|
|
}
|
|
|
|
context.Result = oResult
|
|
|
|
Return Task.FromResult(True)
|
|
End Function
|
|
End Class
|
|
|
|
End Namespace
|