If Job.Success Then
If Job.JobName.StartsWith("j") Then
Dim MyFinalName As String
MyFinalName = sf.Mid(Job.JobName,2, Job.JobName.Length - 1)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & "/eBuki/Downloads/", MyFinalName, False)
File.Copy2(Job.GetInputStream, out)
out.Close '<------ very important
End If
Else
Log("Error: " & Job.ErrorMessage)
End If
Job.Release