السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام
اريد التعديل علي هذا الكود لكي يستعرض لي كل الملفات وليس المجلدات فقط
يوجد مرفق للتوضيح
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