الفارس محمد رجب قام بنشر أكتوبر 23, 2023 مشاركة قام بنشر أكتوبر 23, 2023 السلام عليكم اخوانى الاعزاء ---هل يمكن تعبئة الليست بوكس باسماء الفولدرات الموجودة داخل (drive :d) رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر أكتوبر 23, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 23, 2023 وعليكم السلام جرب الكود التالي 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 4 1 رابط هذا التعليق شارك More sharing options...
الفارس محمد رجب قام بنشر أكتوبر 23, 2023 الكاتب مشاركة قام بنشر أكتوبر 23, 2023 شكرا لك اخى العزيز ياسر خليل أبو البراء جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها