أريد كود فتح مجلد معين

اليك هذه الدالة التي تقوم بفتح المجلد الذي تريد

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute hwnd, "open", "c:\", vbNullString, vbNullString, 1
End Sub

والطريقة الاسهل هنا

http://www.al-ebda3.info/ib/index.php?showtopic=10408&st=0&

رد على سؤالك فى منتدى الابداع الاسلامى :D

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

هناك طريقه اسهل وهى

1- تقوم بفتح قائمه Project ثم تختار منها References...

2- تقوم بوضع علامة صح امام المكتبه Microsoft Shell Controll And Automation وتضغط OK

3- ثم تستخدم الكود التالى

Dim SH As New Shell32.Shell
SH.Open App.Path

ألف ألف ألف شكر

بارك الله فيكم ورحم والديكم . :lol: