+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] اضافة اسم المجلد لاسم الملف خاص لـ b4a (/showthread.php?tid=37726)
اضافة اسم المجلد لاسم الملف خاص لـ b4a - سعود - 06-02-21
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
بحث لثلاث ايام عن كيفية اضافة اكثر من مجلد لمجلد الـ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
أرجو ان اكون قدمت فكرة جيدة ولو كانت بسيطة
السلام عليكم ورحمة الله و بركاته