Code: Select all
sPath = sdb.ApplicationPath & "Scripts\Case.vbs"
Code: Select all
sPath = sdb.ApplicationPath & "Scripts\Case.vbs"
Ok, when you say you've fixed yours, do you mean you fixed your personal scripts on your machine, or are you saying you fixed the scripts that you've created and when they are released in the future adjustments will not be needed? I ask because I have a couple of yours which I needed to change.trixmoto wrote:Haha! I've fixed mine now to avoid confusion!
Ah Ha, I was hoping you were going to say you had a solution so that I wouldn't have to keep making all those changes.trixmoto wrote:No, I just mean I fixed the snippet of code which I posted above.
Senttrixmoto wrote:Well if someone wants to send me a PM telling me what scripts don't work I'll try to take a look and see what I can do.
Code: Select all
If SDB.Objects("Menu_TbStandard_Scripts") is Nothing Then
Set objTBStandard_Scripts = sdb.UI.AddMenuItemSub(sdb.UI.Menu_TbStandard, -1, -1)
Set SDB.Objects("Menu_TbStandard_Scripts") = objTBStandard_Scripts
Else
Set objTBStandard_Scripts = SDB.Objects("Menu_TbStandard_Scripts")
End If
Set objMenuItm = sdb.UI.AddMenuItem(objTBStandard_Scripts, -1, -1)
objMenuItm.Caption = "Your Caption"
objMenuItm.Hint = "This is the hint for your menu."
Script.RegisterEvent objMenuItm, "OnClick", "YourProcedure"