الله يوفق من يعطيني (( كود لفتح مجلد وليس ملف أو كود لفتح صفحة أنتر نت محفوضة عندي )) .

انسخ هذا الكود في شاشة وأظف زرين والمرجع والأداة

Dim SH As New Shell 'reference to shell32.dll class

Dim ShBFF As Folder

Private Sub Command1_Click()

SH.Open ("C:\")

End Sub

Private Sub Command2_Click()

CommonDialog1.Filter = "Htm Files (*.htm)|*.htm| All Files (*.*)|*.*|"

CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then

Exit Sub

End If

End Sub

Private Sub Form_Load()

End Sub

أو انظر إلى المثال المرفق ومرحبا بك أخي العزيز

Helow.rar

لو انك بحثت اكيد بتحصل الموضوع المطلوب ونفس السؤال بالضبط

من الاخ محمد السيد كان الجواب وضع موضوع اخر :

الكود اسهل من الي وضعه hacking

shell "explorer.exe c:\"

فقط ضع قبلها exeplorer.exe

حقيقة أنتم مبدعون .... أنا بصراحة أعجز عن شكركم :

الأخ /haking33

والأخ / مبرمج مبتدأ

لكم خالص تحياتي .