Skip to content
Permalink
Browse files

Added menu item to open install folder. Addresses #58

  • Loading branch information...
MisterVector authored and Davnit committed May 6, 2018
1 parent bd75fc1 commit feb72772ad6f984254cc9a41d05979d0e92787f3
Showing with 7 additions and 0 deletions.
  1. +7 −0 trunk/frmChat.frm
@@ -1318,6 +1318,9 @@ Begin VB.Form frmChat
Begin VB.Menu mnuOpenBotFolder
Caption = "Open Bot &Folder"
End
Begin VB.Menu mnuOpenInstallFolder
Caption = "Open &Install Folder"
End
Begin VB.Menu mnuSepA
Caption = "-"
End
@@ -3945,6 +3948,10 @@ Private Sub mnuChangeLog_Click()
ShellOpenURL "http://www.stealthbot.net/wiki/changelog", "the StealthBot Changelog"
End Sub

Private Sub mnuOpenInstallFolder_Click()
Shell StringFormat("explorer.exe {0}", App.Path), vbNormalFocus
End Sub

Private Sub mnuOpenScriptFolder_Click()
Dim sPath As String
sPath = GetFolderPath("Scripts")

0 comments on commit feb7277

Please sign in to comment.
You can’t perform that action at this time.