مشکل در دانلود و ذخیره فایل در حافظه

[2430023 28]

دوستان لطفا به دقت مطالعه کنن و بعد اقدام به جواب دادن کنن

Sub Globals
Dim download_url As String , download_url = "http://bestiq.xzn.ir/Step/step2.zip"
End Sub


Sub AriaZipSub
	If File.Exists(File.DirInternal,"step2.zip") = False Then
		start_downloader
	Else
		zip.Initialize(File.DirInternal,"step2.zip",Null)
		zip.Extract(File.DirInternal) '  برای خروجی گرفتن هم فقط کافیه اسم یک فولدر رو بدیم
		test_move
	End If
End Sub

Sub start_downloader
	job1.Download(download_url)
End Sub

Sub JobDone(job As HttpJob)
	If job.Success Then
		Dim out As OutputStream = File.OpenOutput(File.DirInternal,"step2.zip", False)
			File.Copy2(job.GetInputStream, out)
		out.Close '<------ very important
		Msgbox("عملیات موفق","هشدار")
		AriaZipSub
	Else
		Msgbox("عملیات نا موفق","هشدار")
		Log("Error: " & job.ErrorMessage)
	End If
	job.Release
End Sub

Sub test_move
		If File.Exists(File.DirInternal,"step2\music\test.mp3") = True Then
			ToastMessageShow("فایل صوت موجود است",True)
		Else
			ToastMessageShow("فایل صوت موجود نیست",True)
		End If
End Sub

دوستان لینک تست معتبر هست لطفا در صورت امکان دوستانی که با کتابخانه اریا زیپ کار کردن دقت کنن

[2430023 28]

سلام

بنده در انتهای پست ذکر کردم که :

در صورت امکان دوستانی که با کتابخانه اریا زیپ کار کردن دقت کنن

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

ولی در قسمت Test_Move چک کردم محتویات فایل انزیپ شده رو و دیدم هیچ فایلی وجود نداره

 

کد کامل هستش اگه بریزید توی ی پروژه و اجرا بگیرید متوجه منظورم می شید

 

ضمنا جسارت نکنم ولی شوخ طبعی هم باید مرز داشته باشه

حسن دو برادر داره جزء کدها نبود که در جواب فرمودید

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

از پرگوییم عذر خواهی می کنم

 

*********

 

برسی دقیقی کردم و متوجه شدم داخل پوشه نمیشه ادرسدهی کرد

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

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

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

 

این میشه گفتن مشکل

نه اینکه هرکی با آریا زیپ کار کرده دقت کنه  این سوال و پست شما خیلی بدتر از تمسخر کردن هست. شخص میاد تاپیک رو بخونه و پاسخ بده ولی سوالی نمیبینه 

 

در ضمن به استاد شاهدی گفتم فرصت کردن حتما خودشون بهتون جواب بدن

ایشون درگیر امتحانات دانشگاهشون هستند   

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

درود

دوست عزیز شما فقط کد دادید و گفتید دقت کنید . اصلا نگفتید مشکل چیه :||: 
مشکل دانلوده ؟ ذخیره هست ؟ UnZip کردن هست ؟

 

سوالتون جریان همون سوالیه که میگه:

حسن دو برادر دارد. حالا شما بگویید حسن چند ساله است؟ :|