تعديل علي كود استعراض ملفات من الكمبيوتر

[حسين العربى]

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

اريد التعديل علي  هذا الكود  لكي يستعرض لي كل الملفات وليس المجلدات فقط

يوجد مرفق للتوضيح 

 

    With Application.FileDialog(4)
        .AllowMultiSelect = False
        .Title = "Dialogue Caption/Title"
 
        If .Show = -1 Then
                   
          Me.name_folder = .SelectedItems.Item(1)
        
                
Dim sFilePath$
sFilePath = Me.name_folder
Me.pate = Split(sFilePath, "\")(UBound(Split(sFilePath, "\")))


    
        End If
   End With

 

 

 

 

doctor_101.rar

[عبدالله كاظم]

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

 

جرب غير هذا السطر :

With Application.FileDialog(4)

بالتالي:

With Application.FileDialog(1)

 

[حسين العربى]

الف الف شكر استاذي الفاضل عبدالله كاظم بالفعل هذا هو المطلوب جزاك الله خيرا وزادك الله من علمه