تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قائمة مجلدات
#1
Tongue 
السلام عليكم

مطلوب كود لوضع المجلدات الموجودة في مسار معين في list1
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

كود :
Private Sub GetFolders(ByVal APath As String, AListBox As ListBox)
    Dim AFolder As String
    
    If Right$(APath, 1) <> "\" Then APath = APath & "\"
    
    AFolder = Dir$(APath, vbDirectory)
    If AFolder <> "" Then
        Do
            If (AFolder <> ".") And (AFolder <> "..") Then
                If (GetAttr(APath & AFolder) And vbDirectory) = vbDirectory Then
                    AListBox.AddItem AFolder
                End If
            End If
            AFolder = Dir$
        Loop While AFolder <> ""
    End If
End Sub

Private Sub Command1_Click()
    ' مثلاً:
    GetFolders "E:\VB 6 Apps", List1
End Sub

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: VB_Coder , تركي الحلواني


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة قائمة علوية لبرنامجي bidaya 2 88 28-11-16, 01:33 AM
آخر رد: bidaya
  كيف اخفي او الغي تفعيل قائمة فرعية من قائمة رئيسية في الفورم الرئيسة allobaed 4 127 28-08-16, 05:09 AM
آخر رد: allobaed
Exclamation [سؤال] انهاء مهمة اكسبلورر من قائمة المهام في ويندوز 7 64 بت الرجل الرمادي 2 398 02-05-15, 08:21 PM
آخر رد: الرجل الرمادي
Wink [سؤال] ممكن كود مسح صنف من قائمة ليست بوكس متصل بقاعدة البيانات abdala 1 375 10-09-14, 03:19 PM
آخر رد: abdala
Question [سؤال] شرح إنشاء قائمة مثل هذه! النبراس12 2 438 25-02-14, 03:27 PM
آخر رد: النبراس12

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم