path="C:\Users\xxxxx\Documents\xxxx\xxxx"
set shell=createobject("shell.application")
set folder=shell.namespace("shell:libraries")
for each folderitem in folder.items
if folderitem.isfolder then
for each folderitem2 in folderitem.getfolder.items
if folderitem2.isfolder then
if instr(path,folderitem2.path)=1 then
msgbox folderitem2.path
folderitem2.invokeverb
wscript.quit
end if
end if
next
end if
next