Dim DestinationPath As String
DestinationPath = File.Combine(File.DirRootExternal, "Pictures/MyApp")
If File.Exists(DestinationPath, "") == False Then
File.MakeDir(File.Combine(File.DirRootExternal, "Pictures"), "MyApp")
End If
File.Copy(File.DirInternalCache, SourceFile, File.Combine(File.DirRootExternal, "Pictures/MyApp"), DestinationFile)
ToastMessageShow("Image downloaded", True)
Dim MyIntent As Intent
Dim MyPhone As Phone
MyIntent.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", "file://" & File.Combine(File.DirRootExternal, "Pictures/MyApp/" & DestinationFile))
MyPhone.SendBroadcastIntent(MyIntent)
End Sub