إجمالي مرات مشاهدة الصفحة

الأربعاء، 20 أبريل 2016

عمل قائمة بأسماء الملفات في مسار تحدده بنفسك 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

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

هناك 7 تعليقات:

  1. رائع أستاذي الفاضل أبو البراء

    ردحذف
  2. بارك الله فيك أخي الكريم إبراهيم .. مشكور على مرورك العطر بالمدونة .. تابعنا مع كل جديد إن شاء الله

    ردحذف
  3. جزاكم الله خيراً أخي العزيز

    ردحذف
  4. رائع يا استاذ ، فهل يمكن ان تضيف عليها عند ضغط على الملف يذهب الي مكانه في المجلد

    ردحذف
  5. دائما مبدع استاذنا الكريم وتاتينا بما هو جديد شكرا لك

    ردحذف
  6. أخي الكريم جمال نعم يمكن عمل المطلوب راجع الرابط التالي
    http://www.officena.net/ib/topic/67702-%D8%B9%D9%85%D9%84-%D9%82%D8%A7%D8%A6%D9%85%D8%A9-%D8%A8%D8%A3%D8%B3%D9%85%D8%A7%D8%A1-%D8%A7%D9%84%D9%85%D9%84%D9%81%D8%A7%D8%AA-%D9%81%D9%8A-%D9%85%D8%B3%D8%A7%D8%B1-%D9%85%D8%AD%D8%AF%D8%AF-%D8%A8%D8%A7%D9%84%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D8%A7%D8%AA-%D8%A8%D8%AF%D9%88%D9%86-%D8%A3%D9%83%D9%88%D8%A7%D8%AF

    ردحذف