save کردن یک فایل انتخاب شده

[alimo 138]

سلام با کد زیر یک عکس انتخاب می کنیم !! چه جوری اون عکس انتخاب شده رو بفهمیم تو چه فایلی و بعد کوپی کنیم تو محمل مشخص شده خودمون

Sub Button1_Click
    Dim PicChooser As ContentChooser
    PicChooser.Initialize("PicChooser")
    PicChooser.Show("image/*", "یک عکس انتخاب کنید")
End Sub
Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
    If Success = True Then
        Dim inp As InputStream
        inp = File.OpenInput(Dir, FileName)
        
    Else
        ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
    End If
End Sub 

[shahab.es 5,429]

سلام هموطن

اینا رو هم توی شرطط اضافه کن

این فایلت رو توی file.dirInternal کپی میکنه

کمکت میکنه احتمالا

Dim outp As OutputStream
outp = File.OpenOutput(File.DirInternal,fileName,True)
File.Copy2(inp,outp)
outp.Close
inp.Close

[alimo 138]

اضافه کردم این ارور داد.

 

http://vip.opload.ir/vipdl/94/10/alimo/Captrrure.png

[alimo 138]

حل شد وقتی خروجی filename می زاری ارور می ده