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

[dostmobile 329]

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

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

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

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

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

سلام

اول یه نکته ای رو بگم که اسم فایل ها 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

[dostmobile 329]

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

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

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

[Kazem Forghani 2,928]

دوست عزیز من کد کپی رو ندادم . فقط چک کردن پوشه رو دادم به شما

[shahab.es 5,429]

برادرم

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

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

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

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

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

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

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

[dostmobile 329]

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

[shahab.es 5,429]

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

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

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

[Kazem Forghani 2,928]

If File.Exits(File.DirInternal,"1.MP3") = False Then

عمل کپی

End If

[dostmobile 329]

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

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

[Kazem Forghani 2,928]

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

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

If File.IsDirectory(File.DirInternal,"doost") = False Then
	کپس در این جا
	End If