+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list (/showthread.php?tid=19221)
لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list - الخير طهوري - 13-02-17
السلام عليكم ورحمة الله
تحملوا ازعاجي لحضراتكم بالأسئلة
لدي مجلد يحتوي ملفات متنوعة وصور بامتدادات مختلفة
أريد كود يظهر فقط نوع من الملفات أو من الصور بامتداد معين في أداة: Listbox
لكم جزيل الشكر والتقدير والعرفان ومعذرة على الإطالة
RE: لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list - sendbad100 - 13-02-17
وعليكم السلام ورحمة الله وبركاته
جرب هذه الطريقة
كود :
Private Sub GetFilesName(zFolderPath As String, zType As String)
If Trim$(zFolderPath) = "" Then Exit Sub
If Right(zFolderPath, 1) <> "\" Then zFolderPath = zFolderPath & "\"
Dim zFiles As String
Dim I As Long
Dim n As Long
zFiles = Dir$(zFolderPath & "*." & zType)
DoEvents
Do While Len(zFiles)
I = I + 1
List1.AddItem Trim$(zFiles)
zFiles = Dir$
DoEvents
Loop
End Subوهكذا تستدعى
كود :
Private Sub Command1_Click()
List1.Clear
'هذا كود جلب الصور
GetFilesName App.Path & "\Image\", "bmp"
'اذا تريد اضافة نوع صور اخر او اي ملف
GetFilesName App.Path & "\Image\", "jpg"
'لجلب جميع الاملفات
'GetFilesName App.Path & "\Image\", "*"
'وتستطيع اضافة اي نوع بنفس الطريقة المسار ثم الامتداد
End Subوضعت لك مثال للتوضيح اكثر في المرفقات
كل ما قمت به هو تعديل بسيط على كود استاذي / أحمد منصور
لم اتمكن من رفع المثال
لا ادري ما السبب يتحمل وكل شي تمام
وعندما اضف الرد لا اجد المرفق
RE: لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list - الخير طهوري - 15-02-17
السلام عليكم ورحمة الله
أخي الفاضل أشكرك جزيل الشكر ، لقد اشتغل الكود بشكل جيد
ألف شكر
لكن الإشكال الذي ظهر أن القائمة ليست مرتبة عدديا ترتيبا تصاعديا
بمعنى يظهر الترتيب كما يلي: 1 - 10 -11-12 حتى 2 ثم 20 -21-22 وهكذا حتى 3 ثم 30 ، 31 ،32
أي أنه يرتب كل الأعداد التي فيها1 على اليسار ثم كل الأعداد التي فيها 2 على اليسار وهكذا
فهل يوجد حل لهذه المشكلة؟
تقبلوا تحياتي والسلام عليكم
RE: لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list - abulayth - 15-02-17
السلام عليكم
اخي الكريم تمت اضافة الى الكود السابق لكي يلبي طلبك
ان شاء الله يكون في المرفقات
مع شكري الجزيل لكل من يساهم في مساعدة الاخرين
يعطيك العافية
RE: لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list - الخير طهوري - 17-02-17
السلامعليكم ورحمة الله وبركاته
أخي الفاضل [b]abulayth[/b] ; و الأخ الكريم سندباد يعجز اللسان عن شكركما
فليس لي ما أقوله إلا الدعاء لكما ولوالديكما بالجنة ورفقة الرسول الحبيب محمد صلى الله عليه وسلم
وأن يحفظكما وكل من تحبونهم آآآآآآآآآآآآآآآآآآآآآآآآآمــــــــــــــــــين
ألف شكر
مع الود والمحبة