مشکل در ذخیره کردن

[ali8968 11]

سلام دوستان

من یه گالری عکس دارم که عکس هاش از اینترنت دانلود میشن ولی وقتی میخوام ذخیره کنم ارور میده

تو قسمت دخیره کردن

For c=0 To dl.Length-1   If dl(c).Success Then
bmp(c)=dl(c).GetBitmap
  imv(c).Initialize("")
   imv(c).Bitmap=bmp(c)

       mygallery.AddThumbnail(bmp(c),c)
          Dim out(c) As OutputStream = File.OpenOutput(File.DirDefaultExternal,"c", False)
    File.Copy2(dl(c).GetInputStream, out(c))
    out(c).Close '<------ very important
    Else 

     Log("Error: " & job.ErrorMessage)
End If

   Next

[مجید آرتا 5,874]

سلام

این کد رو قبل حلقه بنویس:

File.MakeDir(File.DirDefaultExternal,"SaveMyFile")
Dim Path As String : Path=File.DirDefaultExternal&"/SaveMyFile"

و این کد رو بزار:

Dim out(c) As OutputStream = File.OpenOutput(Path,"C"&c,True)

به جای این کد:

[color=#333333]Dim out(c) As OutputStream = File.OpenOutput(File.DirDefaultExternal,"c", False)[/color]

ببین مشکلت حل میشه یا نه!