Open کردن Folder با VB

سلام!
اگر ميشه كدي را كه بتوان باVB 6 یک Folder را Open کرد بگویید.

ابتدا يه Refrence به Microsoft Shell And Automation درست كن(به منوي Project برو و اونو پيدا كن و تيك اونو پر كن)
بعد از كد زير استفاده كن:

Dim objShell As New Shell

objShell.Open YourFolderPath

چی جوری؟

یه نگاهی به این کد بندازید .

کد:

---

Shell Environ("windir") & "\explorer.exe " & Environ("windir")

---

دستت درد نکنه

با دستور shell "Explorer " و مسیر پوشه می توانی !
----------------

دوستم راهنمایی کرد ممنون از راهنمایی تو هم

سلام
این کد پوشه رو تو اکسپلورر باز میکنه
اما اگه خواستید
اونو تو یه پنجره مثل مای کامپیوتر باز کنید از این استفاده کنید

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اول اینو بزار اول فرمت
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long


وبعد برای استفاده می تونی این کد رو استفاده کنی

WinExec "Explorer.exe c:\", 10

دوست عزیز اگر شما این کد رو حداقل یکبار اجرا میکردی می فهمیدی که پنجره Mycomputer باز میشه نا Explorer