solve links in "My network places"

Have a suggestion for "Everything"? Please post it here.
Post Reply
gautxori
Posts: 1
Joined: Sat Nov 05, 2016 9:13 am

solve links in "My network places"

Post by gautxori »

Hi,

when I try to search in any network folder using everything, by right clicking over its link in "my network places" and running "Search with everything" action, the base folder in the search textbox points to a missing folder at the "NETHOOD" namespace.

Fortunately the "fix" (upgrade) is far simple: have a look here (It's been 13 years to get a fix for that M$ tip...). This code might help:

Code: Select all

Const NETHOOD = &H13&
strNethoodFolderLinkName = "whatever you linked from network"
Set objWSHShell = CreateObject("Wscript.Shell")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(NETHOOD)
Set objFolderItem = objFolder.Self
strNetHood = objFolderItem.Path
Set objShortcut = objWSHShell.CreateShortcut (strNetHood & "\" & strNethoodFolderLinkName & "\[color=#FF0000]target.lnk[/color]")
MsgBox "This is the UNC path to the '" & strNethoodFolderLinkName & "' folder:" & objShortcut.TargetPath
(save as .VBS file)

Perhaps this is more of a bug than a feature... Anyway, a fix for that would be welcome.
Post Reply