Eu gosto de usar abordagens mais "minimalistas"; geralmente tentando trabalhar com quaisquer opções que o sistema operacional (Windows, neste caso) tem. Neste caso, eu crio uma barra de ferramentas do windows:

Emseguida,crieumanovapastaqueconterátodososatalhosparaminhaspastaspreferidas.Porfim,colocoabarradeferramentasemumladodaminhatela(digamos,noladoesquerdo)econfiguroabarradeferramentaspara"autohide", mostro pequenos ícones e mostro o texto:

Destaformaeusótenhoquearrastaroatalhodeumapastaparaapastaquerepresentaestabarradeferramentasseeuprecisardeacessorápidoaela(depoisdeabrirapastadabarradeferramentasclicandonaopção"abrir pasta" mostrada na imagem anterior).
Finalmente, eu criei adicionalmente um pequeno script VBS que me permite criar uma nova nota na mesma pasta / barra de ferramentas. O script é colocado no topo da barra de ferramentas:

Epermite-mecriarumarquivodetextosimplesdepoisdeinserirumtítulo(queéusadocomoonomedoarquivo).Afontedoscripté(considere-anodomíniopúblico):
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