مشخص کردن مسیر یک پوشه در بیسیک

[arastooms 1,046]

سلام به همه عزیزان و اساتید گرامی 
در برنامه حدود 200 فایل صوتی کوچک دارم با فرمت mp3 
همه این فایلها رو که 200 عدد هست در پوشه file برنامه ریختم و خیل اونجا شلوغ شده ولی میتونم به راحتی استفاده کنم و با دستورات پخش کردن فایل و .. مشکلی ندارم 
 

حالا قصد دارم کمی پوشه فایل رو مرتب کنم و همه این 200 تا فایل رو در یک پوشه به اسم sound بریزم 
و در شروع برنامه بگم 
پوشه sound را ((که محتوی همه فایل های ام پی 3)) من هست منتقل کن به  File.DirInternal به یک پوشه به همین اسم  و بعد بیا در برنامه همه آدرس ها رو از اونجا بگیر

1- اومدم یه پوشه ساختم به اسم sound با محتوای فایلها و قرار دادم در پوشه فایل b4a
2- اومدم یه پوشه ساختم در برنامه به اسم sound با فرمان زیر که به درستی هم ساخته میشه و موجود هست

File.MakeDir(File.DirInternal,"sound")

مشکل اینجاست که نمیتونم فایلها رو منتقل کنم به این پوشه و دستورش رو نمیدونم در واقع حالا قصد دارم بگم محتوی پوشه sound در پوشه فایل به پوشه soundدر  آدرس بالا یعنی  File.DirInternal منتقل کن که دستور رو بلد نیستم 
و ممنون میشم توضیح بدید 
سپاس

 

[shahab.es 5,429]

ارسطو جان

برات گشتم

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

پیشنهاد داده که فایلارو بذار باشه و برای مرتب بودن، اسم فولدر رو به اول اسم فایل اضافه کن...

https://www.b4x.com/android/forum/threads/whats-under-dirassets.12469/#post-70148

[arastooms 1,046]

سلام و تشکر استاد
یعنی من الان بیام داخل پوشه file یک پوشه بسازم به اسم soundmp3
بعد همه فایلهای mp3 رو بریزم داخل این پوشه

بعد برم تو برنامه وقتی میخام یه فایل mp3 رو صدا بزنم برای اجرا این دستور رو بدم
 

File.DirAssets,"/soundmp3/aaa.mp3")

درست متوجه شدم؟
 

[shahab.es 5,429]

نه عزیزم

فک کنم بد گرفتی

ارل داره میگه نمیتونی list کنی فایل هارو 

فقط میتونی دسترسی داشته باشی

دقیقا مثل کدهای خودت...

اما میگه اجازه file.list نیست اگر درست متوجه شده باشم...

[mosobo 58]

Dim MyList As List

Dim MyFile As String

Dim i as Short

File.MakeDir(File.DirRootExternal,"BarretteKinder2")

MyList.Initialize 'initialize list so it is ready for a new task

Dim MyFile As String

MyList=File.ListFiles(DBFilePath)

For i=0 To MyList.Size-1

MyFile=MyList.Get(i)

File.Copy(File.DirRootExternal & "/BarretteKinder1",MyFile,File.DirRootExternal & "/BarretteKinder2",MyFile)

Next

[shahab.es 5,429]

سلام ارسطو جان

من زیاد کار نکردم با فایل ها

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

Dim l As List
l.Initialize
l = File.ListFiles(File.DirAssets&"/sounds")
For i = 0 To 
	File.Copy(File.DirAssets&"/sounds",l.Get(i),File.DirInternal&"/sounds",l.Get(i))
Next

[arastooms 1,046]

 

سلام ارسطو جان

من زیاد کار نکردم با فایل ها

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

Dim l As List
l.Initialize
l = File.ListFiles(File.DirAssets&"/sounds")
For i = 0 To 
	File.Copy(File.DirAssets&"/sounds",l.Get(i),File.DirInternal&"/sounds",l.Get(i))
Next

سلام شهاب جان سپاس از راهنمایی

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

علت چی هست ؟؟ 

 

java.io.IOException: AssetsDirsoundmp3 is not a folder.

 

این هم کد ها هست

	Dim MyList As List
	MyList.Initialize
	MyList = File.ListFiles(File.DirAssets &"/soundmp3")
	For i = 0 To MyList.Size-1
	File.Copy(File.DirAssets&"/soundmp3",MyList.Get(i),File.DirInternal&"/soundmp3",MyList.Get(i))
	Next

پوشه soundmp3 هم در پوشه فایل برنامه هست و داخلش فایلهای ام پی 3 هست!!!

[shahab.es 5,429]

قربونت

جالبه ارورش

فقط یه چیزی

این پوشه رو توی dirInternal هم ساختی ایا؟ با make dir

File.DirInternal&"/soundmp3"

[arastooms 1,046]

 

قربونت

جالبه ارورش

فقط یه چیزی

این پوشه رو توی dirInternal هم ساختی ایا؟ با make dir

File.DirInternal&"/soundmp3"

بله استاد 

با این دستور

 

	File.MakeDir(File.DirInternal,"soundmp3")

[shahab.es 5,429]

اسطو جان یه debug بگیر ببیم به چه خطی گیر میده دقیقا...

ببینیم چشه این زبون بسته

[arastooms 1,046]

اسطو جان یه debug بگیر ببیم به چه خطی گیر میده دقیقا...

ببینیم چشه این زبون بسته

اینجاست!!!

 

	MyList = File.ListFiles(File.DirAssets &"/soundmp3")

[shahab.es 5,429]

 

اینجاست!!!

 

	MyList = File.ListFiles(File.DirAssets &"/soundmp3")

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

MyList = File.ListFiles(File.DirAssets &"\soundmp3")

[arastooms 1,046]

 

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

MyList = File.ListFiles(File.DirAssets &"\soundmp3")

نه متاسفانه همون خطا رو میده 

شاید باید پوشه رو جای دیگه ای قرار بدم

من این پوشه  soundmp3 رو در پوشه file ساختم و فایلهای mp3 رو داخلش قرار دادم !! درسته دیگه؟