Dim FileUrl As String
FileUrl=HttpUtils.tasks.Get(0)
If HttpUtils.IsSuccess(FileUrl) Then
Dim database As InputStream
database=HttpUtils.GetInputStream(FileUrl)
Dim out As OutputStream
Main.sql_main.Close
out = File.OpenOutput(File.DirDefaultExternal,"WINE_TABLET.DB",False)
File.Copy2(HttpUtils.GetInputStream(FileUrl), out)
out.Close
ToastMessageShow("Database Download Complete", True)
'create a text file to show date of most recent db download
Dim t As Long
t = DateTime.Now
writer.Initialize(File.OpenOutput(File.DirDefaultExternal, "db.txt" , False))
writer.Writeline(DateTime.GetMonth(t) & "/" & DateTime.GetDayOfMonth(t) & "/" & DateTime.GetYear(t) & " - " & DateTime.Time(DateTime.Now))
writer.Close
End If