VB如何读取快捷方式的目标路径

大佬教程收集整理的这篇文章主要介绍了VB如何读取快捷方式的目标路径，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

一般情况下，在VB中读取快捷方式的信息，大家首先考虑的是使用ISHellLink接口，但这种方法需要下载或定义一个TLB文件，相对来说比较麻烦。

其实我们都知道可以使用WScript.SHell对象的CreateShortcut方法创建一个新的快捷方式，却不知道如果该快捷方式已经存在，则CreateShortcut方法将读取而不是创建快捷方式，为此，我写了一个只有两行代码的通用函数供大家参考：

Option Explicit Sub Main() MsgBox ReadShortCut("d:/我的快捷方式.lnk") End Sub Function ReadShortCut(ByVal strFile As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng) As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng If Len(Dir(strFil<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a>) = 0 Or Right(strFile,4) <> ".lnk" Then Exit Function ReadShortCut = CreateOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct("WScript.S<a href="http://code.js-code.com/tag/Hel/" target="_blank" class="keywords">Hel</a>l").CreateShortcut(strFil<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a>.TargetPath End Function

大佬总结

以上是大佬教程为你收集整理的VB如何读取快捷方式的目标路径全部内容，希望文章能够帮你解决VB如何读取快捷方式的目标路径所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。