Sub ricevifile(filename As String)
Dim j As HttpJob
j.Initialize("", Me)
Dim out As OutputStream
j.Download2(ModVariabili.Server_Download,Array As String ("name",filename))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(File.Combine(File.DirInternal,"audio"), filename, False)
out.InitializeToBytesArray(0)
File.Copy2(j.GetInputStream, out)
out.Close
End If
j.Release
End Sub