[Ksa004]

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

الاخوة الأعزاء اود الحصول على كود فتح مجلد بالظغط على Command

أتمنى لي ولكم التوفيق والسداد

[Ksa004]

يعطيك العافيه أستاذ امير على مجهودك الرائع

وجدت ضالتي في هذا الكود


On Error GoTo btnOpenLocation_Click_Err

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

Exit Sub
btnOpenLocation_Click_Err:
'
_Click_Err:
'

مع الشكر