منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فتح مجلد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : فتح مجلد (/showthread.php?tid=12439)



فتح مجلد - Ksa004 - 07-06-15

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

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

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


RE: فتح مجلد - Ksa004 - 08-06-15

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

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


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

مع الشكر