从nethood链接获取目标路径

时间:2013-07-23 15:06:31

标签: vbscript hyperlink shortcut filepath absolute-path

假设我有一个名为“BLABLA”的文件夹的nethood链接,目标路径是“\\ servername \ temp”

如何获取目标路径的字符串? 我试过了:

Set oShell = CreateObject("WScript.Shell")
Const NET_HOOD = &H13&
Set oShApp = CreateObject("Shell.Application")
sNetHood = oShApp.NameSpace(NET_HOOD).Self.Path
Set oShortCut = oShell.CreateShortcut(sNetHood & "\" & "BLABLA" & ".lnk")

MsgBox "> " & oShortCut.TargetPath

它可以完成所有操作,甚至可以创建一个没有任何错误的oShortCut对象。 但是,它不会返回

oShortCut.TargetPath

我做错了什么?

我希望它返回:“\\ servername \ temp \ BLABLA”
提前感谢任何建议!

我在win 7下创建了快捷方式,右键单击了资源管理器的计算机视图,然后是>添加网络位置>接下来......等它创建一个文件夹,表示NetHood中的快捷方式到服务器上的路径...它就像一个映射的共享但不是真的。

1 个答案:

答案 0 :(得分:-1)

输入信息...经过多年阅读自己的事情,然后再次检查谷歌我发现ac#代码我写入vbs然后简化只是为了看到所有我不得不改变到底是添加这个:

.GetLink

所以问题的解决方案是:

Const NET_HOOD = &H13&
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(NET_HOOD)

For Each oFile In oFolder.Items
    MsgBox oFile.GetLink.Path
Next