Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: c1bf721327
Fetching contributors…

Cannot retrieve contributors at this time

33 lines (33 sloc) 1.132 kb
#include %A_ScriptDir%\FastFolders.ahk
;Some stuff here to use those functions separately to add custom buttons, might have to be expanded a bit later on
if(A_OSVersion!="WIN_VISTA" && A_OSVersion!="WIN_7")
{
MsgBox This program is only used for Windows Vista and Windows 7.
return
}
MsgBox, 4,, This program allows you to add buttons to the explorer bar.`nWould you like to add a button(yes) or remove one(no)?
IfMsgBox Yes
{
path:=COMObjCreate("Shell.Application").BrowseForFolder(0, "Enter Path to add as button", 0).Self.Path
SplitPath, path , foldername
if(foldername="")
foldername:=path
InputBox, foldername , Enter the title for the button, Enter the title for the button, , , , , , , , %foldername%
if Errorlevel
return
AddButton("",path,,foldername)
}
IfMsgBox No
{
MsgBox, 4,, Would you like to remove one button (yes) or remove all buttons(no) made by this script ?
IfMsgBox Yes
{
path:=COMObjCreate("Shell.Application").BrowseForFolder(0, "Enter Path which should be removed", 0).Self.Path
RemoveButton(path)
}
IfMsgBox No
{
RemoveAllExplorerButtons()
}
}
return
Jump to Line
Something went wrong with that request. Please try again.