منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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


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:
'

مع الشكر