Сохранить и скачать видео с b4a

Question

Как я могу скачать файл mp4 с b4a и сохранить его в какой-то путь и выполнить в галерее

Я использую это, но это не работает:

Else If Job.JobName == "InstagramPostDownload_mp4" Then
    Dim NameVideo As String = "InstagramPost_"&Rnd(10000,50000)
    Dim IU As InputStream = Job.GetInputStream
    Dim OutputStream1 As OutputStream 
    OutputStream1.InitializeToBytesArray(1000)
    File.Copy2(IU, OutputStream1)
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "pictures/"&NameVideo&".mp4", False)
    File.WriteList(File.DirRootExternal, "pictures/"&NameVideo&".mp4",out)
    IU.Close
    OutputStream1.Close
    out.Close
    Dim i As Intent
    i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
    "file://" & File.Combine(File.DirRootExternal, "pictures/"&NameVideo&".mp4"))
    Dim p As Phone
    p.SendBroadcastIntent(i)
    ToastMessageShow("Saved to gallery",True)
End If