Sub bForzarLectura_Click
Dim job As HttpJob
job.Initialize("j", Me)
job.Download("http://pedidos.pqllana.com.ar/uploads/preciosxprodenvbase.csv")
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirDefaultExternal, "preciosxprodenvbase.csv", False)
File.Copy2(job.GetInputStream, out)
out.Close '<------ very important
Else
Msgbox("Error: " & job.ErrorMessage,"")
End If
job.Release
End Sub