رفتن به مطلب
  • 0

باز شدن برنامه و عمل کپی در صورت وجود نداشتن اهنگ


dostmobile

سوال

سلام دوستان گرامی


برنامه ای ساختم که هنگام اجرا چنتا موزیک رو کپی میکنه تو پوشه خاص


هروقت اجرا میکنم عمل کپی رو انجام میده و باعث هنگ کردن برنامه در گوشیهای مدل پایین میشه


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


لینک ارسال
به اشتراک گذاری در سایت های دیگر

9 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

اول یه نکته ای رو بگم که اسم فایل ها A01 تا A09  رو به این شکل بزن A1 تا A9.برای اینکه بتونی با یک حلقه ساده همشون رو کپی کنی.

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

بعد میاد فایل های همین پوشه رو میگیره و یک عدد بر گشت داده میشه.اگه عدد برکشتی مساوی با 0 بود یعنی هیچ فایلی توی پوشه نیست پس بیا کپی کن.

یعنی یک همچین کدی میشه :

	If File.IsDirectory(File.DirRootExternal,"dostmobile") = False Then
	 File.MakeDir(File.DirRootExternal,"dostmobile")
	End If
	Dim ListFiles As List
	ListFiles.Initialize
	ListFiles = File.ListFiles(File.DirRootExternal&"/dostmobile")
	Dim Size As Int = listfiles.Size
	If Size = 0 Then
		For i = 1 To 15 
			File.Copy(File.DirAssets,"A"&i&".mp3",File.DirRootExternal&"/dostmobile","A"&i&".mp3")
		Next  
	End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

کد شمارو انجام دادم و عمل کپی رو انجام نداد

از این کد استفاده کردم برای کپی

Sub t_tick
Label7.text=Label7.text+1
If Label7.Text= "3.0" Then
	File.MakeDir(File.DirRootExternal,"dostmobile")
If File.ExternalWritable = True Then
 Dim Path As String = File.DirRootExternal&"/dostmobile"
 
 File.Copy(File.DirAssets,"A01.mp3",Path,"A01.mp3")
  File.Copy(File.DirAssets,"A02.mp3",Path,"A02.mp3")
   File.Copy(File.DirAssets,"A03.mp3",Path,"A03.mp3")
    File.Copy(File.DirAssets,"A04.mp3",Path,"A04.mp3")
	 File.Copy(File.DirAssets,"A05.mp3",Path,"A05.mp3")
	  File.Copy(File.DirAssets,"A06.mp3",Path,"A06.mp3")
	 File.Copy(File.DirAssets,"A07.mp3",Path,"A07.mp3") 
    File.Copy(File.DirAssets,"A08.mp3",Path,"A08.mp3")
   File.Copy(File.DirAssets,"A09.mp3",Path,"A09.mp3")
  File.Copy(File.DirAssets,"A10.mp3",Path,"A10.mp3")
 File.Copy(File.DirAssets,"A11.mp3",Path,"A11.mp3")
File.Copy(File.DirAssets,"A12.mp3",Path,"A12.mp3")
File.Copy(File.DirAssets,"A13.mp3",Path,"A13.mp3")
File.Copy(File.DirAssets,"A14.mp3",Path,"A14.mp3")
File.Copy(File.DirAssets,"A15.mp3",Path,"A15.mp3")

End If	
End If


End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

برادرم

بهنره فایل هارو چک کنید

15 تا دونه چک کردن، چیزی نیست..

اما فک کن مثلا کار برنامه تا نصفه روفته، پوشه ایجاد شده، بعد یهو گوشیه کاربر خاموش میشه

یا تماس میگیره

دیگه برنامه ات کپی نمیکنه

در صورتی که ، تمام اهنگات کپی نشدن :)

موفق تر باشی...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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


لینک ارسال
به اشتراک گذاری در سایت های دیگر

به نظر من کار بهتریه

اما بازم ، شما نظر دوستان دیگرو بدون :)

کار منطقی ای هست...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

میخوام یه پوشه رو چک کنه

مثلا تو پوشه دوست

لینک ارسال
به اشتراک گذاری در سایت های دیگر

میخوام یه پوشه رو چک کنه

مثلا تو پوشه دوست

If File.IsDirectory(File.DirInternal,"doost") = False Then
	کپس در این جا
	End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...