نحوه ذخیره عکس انتخاب شده از طریق filedialog در فولدر file برنامه

[alijafari 11]

بنده می خوام عکس مورد نطر را که از طریق file dialog انتخاب کرده ام را در شاخه file.dirassets ذخیره کنم.کسی از دوستان می تونه یه راهنمایی کنه.

  Sub Button1_Click
Dim fd As FileDialog
fd.FileFilter = ".png,.bmp,.jpg,.jpeg,.gif"
fd.Show("عکس را انتخاب کنید","نمایش","انصراف","",Null)
    If fd.Response = DialogResponse.POSITIVE Then
       Dim bitmap1 As Bitmap
	'fd.FilePath="image/*"
	bitmap1.Initialize(fd.FilePath,fd.ChosenName)
       ImageView1.Bitmap = bitmap1
 End If

End Sub  

[مصطفی حقیقی 176]

تو assets بعد اجرای برنامه نمیتونید فایلی save کنید

    Dim filename As String = "ehem.png"
   Dim Out As OutputStream
   Out = File.OpenOutput(File.Combine(File.DirRootExternal, "folder/"), filename, False)
   FinalBitmap.WriteToStream(Out, 100, "PNG")