دستری به پوشه های File.DirAssets

[vahid_d_0101 31]

با سلام من داخل File.DirAssets چندتا پوشه درست کردم که داخلش اهنگه حالا میخوام اهنگ ها را پخش کنم ولی هیچ طوری نمیتونم ادرس پوشه داخل File.DirAssets را به مدیا پلیر بدم 

همش میگه فایل وجود نداره

[vahid_d_0101 31]

کسی نمیتونه جواب بده ؟

[نیما قبادی 246]

سلام خدمت شما دوست گرامی

 

میتونید از این کد استفاده کنید

Sub playe1_Click
    b2 = Sender
audio.Load(File.DirAssets,"zang"&b2.Tag&".mp3")
If playe1.Bitmap = b2.Bitmap Then
 audio.Pause
 'b2.Text = "Play"
b2.SetBackgroundImage(bitmap2)
 
Else
 audio.Play
' b2.Text = "Pause"
 b2.SetBackgroundImage(bitmap1)

End If
End Sub

[rasul23 40]

چجوری پوشه هایی که به پوشه file پروزه اضافه کردم رو به برنامه معرفی کنم و چجوری ادرس دهی کنم

الان من یه پوشه ساختم تو مسیرDirAssets به نام 1 و یه فایل هم داخلش دارم به نام m.txt اما با اینکه این کد رو مینویسم

File.GetText(File.DirAssets&"/1","m.txt") 

میگه وجود نداره

[vahid_d_0101 31]

   

پوشه ای داخل File.DirAssets

یعنی داخل File.DirAssets یه پوشه دارم به نام اهنگ حالا اونجا اهنگها هست

[sganji 678]

 

فکر کن اسم پوشه ات music هستش و یه آهنگ به نام m.mp3 داری:

	Dim mp1 As MediaPlayer
	mp1.Initialize("mp1")
	mp1.Load(File.DirAssets&"/music","m.mp3")

[پژمان نیکروان 6,055]

m.Load(File.DirAssets&"/ahang","file.mp3")

[m007moh 181]

چجوری پوشه هایی که به پوشه file پروزه اضافه کردم رو به برنامه معرفی کنم و چجوری ادرس دهی کنم

الان من یه پوشه ساختم تو مسیرDirAssets به نام 1 و یه فایل هم داخلش دارم به نام m.txt اما با اینکه این کد رو مینویسم

File.GetText(File.DirAssets&"/1","m.txt") 

میگه وجود نداره

 

باید اینجوری تعریف کنی ینی اسم پوشه رو همراه اسم فایل jتو قسمت filename  بیاری 

 

مثل زیر به جای , دقت کن

File.GetText(File.DirAssets,"/foldername/m.txt")