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

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

ذخیره میکنه و سپس برنامه رو صدا میزنه.

Sub RegJump(regKeyStr As String)
 Dim RegObj
 Set RegObj = Create("W.Shell")
 Call RegObj.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\
 CurrentVersion\Applets\Regedit\LastKey", regKeyStr, "REG_SZ")
 RegObj.Run ("regedit")
 Set RegObj = Nothing
End Sub
 
خط پنج ادامه خط چهار هست بعد از کپی درستش کنید
 (من برای اینکه کامل نشون داده بشه اینجوری نوشتم)

نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 4:16 عصر | نظرات دیگران()