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

[عمر الجزاوى]

السلام عليكم ورحمة الله وبركاته ماشاء الله عمل جميل واكثر من رائع استاذ ياسر ممكن اضافة على الكود عند الضغط على اسم الفولدر فى الليست بوكس1 يفتح فى الليست بوكس 2 محتوى ما بداخل فولدر وجزاكم الله خير

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

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

اثراءا للموضوع وبعد ادن الاستاد الكبير @ياسر خليل أبو البراء  

تفضل اخي  يمكنك الابحار كما تشاء داخل مجلداتك وتعبئة جميع الملفات الموجودة داخل الفولدرات على الليست بوكس وفتحها مباشرة عند الظغط 

اليك الرابط التالي للمعاينة      https://streamable.com/uv6f29

  ملاحظة : لقد جعلت الكود افتراضي على الفولدرات الموجودة في نفس مسار الملف يمكنك تعديلها على حسب احتياجاتك  داخل الكود التالي 

Private Sub UserForm_Initialize()
' مسار وجود الملف
  myPatch = Application.ThisWorkbook.Path
  
  ' قم بتحديد القرص الخاص بك
  'myPatch = "D:\"
  
  Set MH = CreateObject("Scripting.FileSystemObject")
  Set dossier = MH.GetFolder(myPatch)
  Me.ListBox1.Clear: Me.ListBox2.Clear: Me.ListBox3.Clear
  Me.ListBox4.Clear: Me.ListBox5.Clear: Me.ListBox6.Clear
  n = 0
  For Each d In dossier.SubFolders
       Me.ListBox1.AddItem d.Name
       Me.ListBox1.List(n, 1) = dossier.Path
       n = n + 1
   Next
   Me.TextBox1 = dossier.Path
   listefichiers dossier.Path
End Sub

 

 

 

تعبئة الليست ياسماء الفولدرات 2.xlsm

[Ahmed Saad 2017]

ماشاء الله عليك يا أستاذ @محمد هشام.

دايما مبدع و أفكارك خارج الصندوق 

[عمر الجزاوى]

ماشاء الله استاذ محمد رائع وخرافة وعمل خيالى وقد حثثت طلبى وزيادة بارك الله فيكم وفى علمكم

[محمد هشام.]

العفو اخي يسعدنا اننا استطعنا مساعدتك 

بالتوفيق