Sub SaveFile(URL As String, Dir As String , Filename As String)
Dim FS As OutputStream ,Iss As InputStream, Buffer(1024) As Byte , BytesRead As Int ,Start As Int ,Cache As Int
FS= File.OpenOutput(Dir, Filename , False )
Iss = HttpUtils.GetInputStream(URL)
Start=0
Do Until Bytesread = -1
BytesRead = iss.ReadBytes( Buffer, 0 , Buffer.Length )
If bytesread>-1 Then Cache = bytesread
FS.WriteBytes(Buffer, 0, Cache)
start=start+ BytesRead
Loop
iss.Close
fs.Close
End Sub