عمل قائمة بأسماء الملفات في مسار تحدده بنفسك List All File Names In Directory

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

أقدم لكم كود يقوم بعمل قائمة بأسماء الملفات في مسار تحدده أنت من خلال نافذة استعراض المجلدات.

بفرض أن لدينا مجلد باسم TestFolder ويحتوي على مجموعة ملفات بامتدادات مختلفة ، وأردنا إدراج أسماء هذه الملفات في العمود الأول من ورقة العمل

عند تنفيذ الكود تظهر نافذة لاستعراض الملفات ، قم بتنفيذ الخطوات بتحديد مسار المجلد المراد عرض أسماء الملفات به

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

وأخيراً إليكم الكود ، ويوضع الكود في موديول عادي 

Sub List_All_File_Names()
    Dim strPath     As String
    Dim strFile     As String
    Dim R           As Long

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        strPath = .SelectedItems(1) & "\"
    End With

    Cells(1, 1) = "File Names"

    R = 2
    strFile = Dir(strPath, 7)

    Do While strFile <> ""
        Cells(R, 1) = strFile
        R = R + 1
        strFile = Dir
    Loop
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء