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

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


arastooms

سوال

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

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

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

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

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

 

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

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

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

ارسطو جان

برات گشتم

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

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

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

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

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

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

 

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

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

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

نه عزیزم

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

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

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

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

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

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


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

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

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

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

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

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 هست!!!

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

قربونت

جالبه ارورش

فقط یه چیزی

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

File.DirInternal&"/soundmp3"
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

قربونت

جالبه ارورش

فقط یه چیزی

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

File.DirInternal&"/soundmp3"

بله استاد 

با این دستور

 

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

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

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

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

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

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

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

اینجاست!!!

 

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

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

 

اینجاست!!!

 

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

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

MyList = File.ListFiles(File.DirAssets &"\soundmp3")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

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

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

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

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

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

بایگانی شده

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

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

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