请教各位用vba，如何通过文件快捷方式获取文件的目标路径？谢谢！！！

lnk文件是二进制文件，结构比较复杂，建议参考百度文库中的“lnk文件格式解析”一文（见：）编写代码。

Function Getlnkpath(ByVal s As String)
With CreateObject("Wscript.Shell").CreateShortcut(s)
Getlnkpath = .TargetPath
.Close
End With
End Function

Sub GetLinkPath()
MsgBox Getlnkpath("D:\pics\xxxx")
End Sub追问

不好意思，好像运行不了...本人菜鸟，能详细吗，谢谢

追答

错误信息是什么？

追问

出现这样窗口，怎样修改呢，

现要在excel工作表里插入图片（D盘:\pics\）? pics里面存放的是图片文件快捷方式,现在要读取图片文件快捷方式的目标路径，或者把目标路径写在单元格里如何实现？

追答

MsgBox Getlnkpath("D:\pics\xxxx")
这里你要放full name 路径+文件名 不能只放一个路径

追问

出现这样警告窗口，只能一个文件吗，我想批量读取/写入。

追答

自己修改下路径就可以应用了

本回答被提问者采纳

没太明白。。是说选取任意一个快捷方式，返回目标文件的路径么？追问

是这样的，在D盘有个文件夹（D:\图片）这个文件夹是分类用的，里面存放的是图片文件快捷方式（从不同的路径引用的），用vba在excel工作表里插入图片文件夹的图片，现在要读取图片文件快 捷方式的目标路径，请问如何写呢

追答

添加 Windows Script Host Object Model 引用模块
然后用WshShell，但是只能用过CreateShortCut来添加快捷方式。但是貌似不能从指定的快捷方式读取Target地址