Мне нравится использовать более "минималистичные" подходы; обычно пытается работать с любыми опциями, которые есть у ОС (в данном случае Windows). В этом случае я создаю панель инструментов Windows:
Затем создайте новую папку, которая будет содержать все ярлыки для моих любимых папок. Наконец, я помещаю панель инструментов с одной стороны моего экрана (скажем, с левой стороны) и настраиваю панель инструментов на "автоматическое скрытие", отображение небольших значков и отображение текста:

Таким образом, мне нужно только перетащить ярлык папки в папку, представляющую эту панель инструментов, если мне нужен быстрый доступ к ней (после открытия папки панели инструментов, нажав на опцию "открыть папку", показанную на предыдущем изображении).
Наконец, я дополнительно создал небольшой скрипт VBS, который позволяет мне создавать новую заметку в той же папке / панели инструментов. Скрипт находится в верхней части панели инструментов:

И позволяет мне создать простой текстовый файл после ввода заголовка (который используется в качестве имени файла). Источник сценария (рассмотрите его в Public Domain):
x = InputBox ("Write the title of the new note","Note Title")
Set WshShell = CreateObject("WScript.Shell")
if x <> "" then
y = "C:\Documents and Settings\myname\My Documents\Notes\"&x&".txt"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile(y, 8, True)
WriteStuff.WriteLine(x)
WriteStuff.WriteLine("")
WriteStuff.Close
end if