Italian Download e salvataggio immagini in locale

'Dim Nom As String
'Dim out As OutputStream
'Nom= "img" & CStr(IDEff) & ".jpg"        ' IDEff è una variabile globale
'out = File.OpenOutput(File.DirRootExternal & "/Immagini",Nom,False )
'File.Copy2(Job.GetInputStream, out)      '    job o imagejob ?
'out.Close

for i=1 to 100
  NomeFile="http://www.nomesito.it/Immagini/img"  & cstr(i) & ".jpg"
  '  effettuo il download (questo sono riuscito a farlo)
' . . . . . .
'    salvo in File.DirRootExternal & "/Immagini" ( e questo no)
' . . . . .
next

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim job1 As HttpJob
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    job1.Initialize("job1", Me)
    job1.Download("http://www.iotuosito.it/immagine1.jpg")
End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success = True Then
        Dim Out As OutputStream
        Out = File.OpenOutput(File.DirDefaultExternal, "immagine1.jpg", False)
        Job.GetBitmap.WriteToStream(Out, 100, "JPEG")
    End If
End Sub

    Dim i As Int
    job1.Initialize("job1", Me)
    For i=1 To 2
        If i=1 Then NomeFile="1305Pers.jpg"
        If i=2 Then NomeFile="3502Pers.jpg"
        job1.Download("http://www.xxxx/Immagini/" & NomeFile)
    Next

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim job1 As HttpJob
    Dim i As Int
    Dim nomefile As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
   
    i = 1
    nomefile = "immagine1.jpg"
    job1.Initialize("job1", Me)
    job1.Download("http://www.iltuosito.it/"&nomefile)
End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success = True Then
        Dim Out As OutputStream
       
        Out = File.OpenOutput(File.DirDefaultExternal, nomefile, False)
        Job.GetBitmap.WriteToStream(Out, 100, "JPEG")
        i = i + 1
        Select i
            Case 2
                nomefile = "immagine2.jpg"
            Case 3
                nomefile = "immagine3.jpg"
            Case 4
                nomefile = "immagine4.jpg"
        End Select
        ' in questo modo dopo le 4 immagini non faccio più nulla
        If i < 5 Then
            job1.Download("http://www.iltuosito.it/"&nomefile)
        End If
    End If
End Sub

Sub Process_Globals
End Sub

Sub Globals
    Dim job1 As HttpJob
    Dim i As Int
    Dim NomeFile As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
    i = 1
    NomeFile = CStr(i) & ".jpg"
    job1.Initialize("job1", Me)
    job1.Download("http://nomesito/"&NomeFile)
End Sub
Sub JobDone(Job As HttpJob)
    If Job.Success = True Then
        Dim Out As OutputStream
        Out = File.OpenOutput(File.DirRootExternal , NomeFile, False)
        Job.GetBitmap.WriteToStream(Out, 100, "JPEG")
        i = i + 1
        NomeFile = CStr(i) & ".jpg"
        Log(NomeFile)
        ' in questo modo dopo le 4 immagini non faccio più nulla
        If i < 5 Then
            job1.Download("http://nomesito/" & NomeFile)
        Else
            Msgbox ("Fine","")
            Activity.Finish
        End If
    End If
End Sub
Sub CStr(o As Object) As String
Return "" & o
End Sub