Dim j As HttpJob
j.Initialize("", Me)
j.Download("http://mysitename/")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.Tag)
Log(j.GetString)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, FileName, False)
File.Copy2(j.GetInputStream, out)
out.Close
Else
Dim rerror As String
Log("Error: " & j.ErrorMessage)
rerror="Error: " & j.ErrorMessage
rerror=rerror.Length
Log(rerror)
MsgboxAsync("Please connect to internet","Message")
Return
End If
j.Release