[سعود]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله و بركاته

بحث لثلاث ايام عن كيفية اضافة اكثر من مجلد لمجلد الـDirAssets دون فائدة حيث لا ينم قراءة اي ملفات ليست موجودة بالمجلد الرئيسي لاني احاول وضع ملفات 

ضمن مجلدات لكل قاريء مجلد لكن لم تفلح فلجات الى(بعد الله سبحانه و تعالى) الى طريقة بفيجوال بيسك حيث اضيف اسم المجلد الى اسم الملف والباقي يخص الـb4a

المهم احببت مشاركة الفكرة لمن واجه معضلة كهذه

احرص على ان يكون طول النص الاول مع التسطير 8 خانات  لتنجح الاكواد الخاصة بـb4a

PHP كود :

m=m.SubString(8)
m=m.SubString2(0,3) 


هذان السطران يستخلصان  الاسم الرقمي للسورة

اما التالي:

PHP كود :

Dim foldername As String
foldername=mlst.Get(Position)
For Each filename As String In File.ListFiles(File.DirAssets)
    If filename.ToLowerCase.StartsWith(foldername & "_") Then
     lst.Add(filename)
    End If
Next 


فيتحقق هل اسم الملف يبدا باسم المجلد اللذي يظهر في الكومبوبوكس واللذي اسمه spinner

أرجو ان اكون قدمت فكرة جيدة ولو كانت بسيطة

السلام عليكم ورحمة الله و بركاته