Add or remove Item Windows Explorer Quick Access

[Gintaras]

C# code can be executed in QM.
Or can be converted to QM:

Macro Macro79

Code:

Copy      Help

Shell32.Shell shell._create
Shell32.Folder2 f=+shell.NameSpace("Q:\Test\a")
f.Self.InvokeVerb("pintohome")

mes "unpin"

Shell32.Folder2 f2=+shell.NameSpace("shell:::{679f85cb-0220-4080-b29b-5540cc05aab6}")
out F"item count: {f2.Items.Count}"
Shell32.FolderItem fi
foreach fi f2.Items
,out fi.Name
,sel fi.Name 1
,,case "a"
,,fi.InvokeVerb("unpinfromhome")
,,break