کار با فایل زیپ در بیسیک فور اندروید

[newbasic4 10]

با سلام و خسته نباشد خدمت اساتید محترم

من یه کدی میخوام که با کلیک روی یک باتن یا لیبل یک فایل زیپی که تو برنامه هستش رو تو حافظه گوشی یا کارت حافظه گوشی کپی کنه خیلی لازمش دارم ممنون میشم اگه راهنمایی کنید.

[مهدی ایزدی 9,203]

درود

کپی کنید یا Extract کنید؟

[M_M_A 112]

کپی که سادس اما اکسترکت مشکله چون انگار میخوای یه zip reader بسازی و باید از دستورات پایه استفاده کنی

[newbasic4 10]

درود هر دو فرقی نداره هم کپی هم اکسترک فرقی نمیکنه

[newbasic4 10]

پس میخوام با زدن روی لیبل یا باتن فایل زیپی از برنامه به گوشی کپی بشه راهنمایی کنید لطفا

[مهدی ایزدی 9,203]

از دستور File.Copy استفاده کنید

[newbasic4 10]

میشه یک سورس از این کد بزارید که با زدن لیبل یک فایل به گوشی کپی بشه

[M_M_A 112]

توی انجمن بگرد هست

[Farzad Musavi 576]

File.Copy(File.DirAssets,"filename",File.DirRootExternal,"filename")

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

یک مدل دیگش به این شکله:

Dim Ins As InputStream
Dim out As OutputStream
Ins = File.OpenInput(File.DirAssets,"Filename")
out = File.OpenOutput(File.DirRootExternal,"Filename",False)
File.Copy2(Ins,out)