Dim j As HttpJob
Dim Sito As String = "http://www.miosito.it/MiaDir"
Dim srcFile As String = "srcMiofile.txt"
Dim dstFile As String = "dstMioFile.txt"
Dim SitoFile As String = File.Combine(Sito,srcFile)
j.Initialize("", Me)
j.Download(SitoFile)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, dstFile, False)
File.Copy2(j.GetInputStream, out)
out.Close
Log("file scaricato")
End If
j.Release