Sub Globals
...
Private job1 As HttpJob
...
End Sub
Sub Activity_Create(FirstTime As Boolean)
...
job1.Initialize("job1",Me)
job1.Download("http://www.{my url}/testfile.csv")
...
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "job1"
Dim out As OutputStream
File.Delete(File.DirDefaultExternal,"testfile.csv")
out = File.OpenOutput(File.DirDefaultExternal,"testfile.csv",True)
File.Copy2(Job.GetInputStream, out)
out.Close
End Select
Else
Log("Error: " & Job.ErrorMessage)
Job.Release
Return
End If
Job.Release
' some code here to read the csv file and create a map...
End Sub