تعبئة الليست بوكس باسماء الفولدرات

[الفارس محمد رجب]

السلام عليكم اخوانى الاعزاء ---هل يمكن تعبئة الليست بوكس باسماء الفولدرات الموجودة داخل (drive :d)

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي

Private Sub UserForm_Initialize()
    Dim fso As Object, oFolder As Object, sPath As String, i As Long
    sPath = "D:\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    UserForm1.ListBox1.Clear
    If fso.FolderExists(sPath) Then
        Set oFolder = fso.GetFolder(sPath)
        For Each oFolder In oFolder.SubFolders
            If Left(oFolder.Name, 1) <> "$" Then
                i = i + 1
                UserForm1.ListBox1.AddItem oFolder.Name
            End If
        Next oFolder
    End If
    Set fso = Nothing
End Sub

 

[الفارس محمد رجب]

شكرا لك اخى العزيز ياسر خليل أبو البراء جزاك الله كل خير