تعديل كود استدعاء اسماء الملفات

[tlayt kamal]

الاخول الكرام

عندي في المرفق مجلد فيه ملفات اكسيل وملف اخر رئيسي  والكل مخزن بسطح المكتب 

في الملف الرئيسي كود للاستاذ المحترم عماد غازي 

اريد فضلا تعديل الكود لاستدعاء اسماء الملفات كما موضح في الشرح بالمرفق

تحياتي

Desktop.rar

[omar elhosseini]

ماذ تقصد ب (استدعاء اسماء الملفات)

ضع مثال للأستدعاء 

[tlayt kamal]

استاذ عمر الحسيني *** أبو تامر شكرا على الاهتمام

الشرح وضعته في المرفق في الملف mm

الكود يعمل بكفاءة ولكن يستدعي اسم الملف ومساره اريده ان يستدعي اسم الملفات فقط كما في الشرح بالمرفق

[حسين مامون]

ربما يكون المطلوب

Sub creatB()
Dim OBJECTfso
Dim OBJECTfolder
Dim OBJECTfils
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Range("a2:a100").ClearContents
Set OBJECTfso = CreateObject("scripting.filesystemobject")
Set OBJECTfolder = OBJECTfso.getfolder("C:\Users\pc\Desktop\med")
 ws.Cells(1, "a").Value = "the file founf in " & OBJECTfolder.Name & "Are"
  For Each OBJECTfils In OBJECTfolder.Files
   ws.Range("a" & Rows.Count).End(xlUp).Offset(1) = OBJECTfils.Name
    1: Next
  Set OBJECTfolder = Nothing
 Set OBJECTfils = Nothing
Set OBJECTfso = Nothing
End Sub

 

[tlayt kamal]

نعم استاذ حسين مامون هذا هو المطلوب 

شكرا لك وللاستاتذة عمر الحسيني *** أبو تامر

جعله الله في ميزان حسناتك