باز کردن رجیستری در مسیر دلخواه

کافیه مسیر مورد نظرتون از رجیستری رو به تابع زیر بفرستید تا برنامه Regedit در
اون مسیر باز بشه.

طرز کار این تابع اینجوریه که مسیر ورودی رو به عنوان آخرین مسیر بازدید شده
توسط Regedit ، در رجیستری ذخیره میکنه و سپس برنامه رو صدا میزنه.

Sub RegJump(regKeyStr AsString)
 Dim RegObj
 Set RegObj = Create("W.Shell")
 Call RegObj.RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftWindows
 CurrentVersionAppletsRegeditLastKey", regKeyStr, "REG_SZ")
 RegObj.Run ("regedit")
 Set RegObj = Nothing
EndSub