كود فتح مجلد عن طريق الزر

[محمد الزريعي]

السلام عليكم يا شباب :
لي فترة وانا ابحث عن الكود او الطريقة التي تقوم بفتح folder عن الضغط على Button .

حيث أنني استطعت استخراج  مسار المجلد وخزنته في القيمة NN

على سبيل المثال 

NN="D:\SALA\"    'E

 

لكنني مش عارف افتح هذه المسار

ارجو التكرم منكم بالمساعدة

[محمد الزريعي]

                  مشى معي الحال في هذا الكود  الحمد لله . الي عندة نظرة  مختلفة أتمنى ان يطرحها .  وشكراً لكم .  

Dim D As String
                   D = NN
                   If D <> "" Then
                      Shell "Explorer.exe /select," & Chr$(34) & D & Chr$(34), vbMaximizedFocus
                   End If