如果在VB中得到某一快捷方式的目标文件？

Question

Option Explicit
Dim iwSH As New IWshRuntimeLibrary.IWshShell_Class
Dim iwSC As IWshRuntimeLibrary.IWshShortcut_Class
Dim iwCreateLNK As IWshRuntimeLibrary.IWshShortcut_Class
Private Sub cmdCreateLNK_Click()
    Set iwCreateLNK = iwSH.CreateShortcut("d:\yy.lnk")  'd:\yy.lnk为要创建的快捷方式
    iwCreateLNK.TargetPath = "D:\Program Files\OWN\OWN.exe"  '"D:\Program Files\OWN\OWN.exe"
为该快捷方式所指的目标文件
    iwCreateLNK.IconLocation = "D:\Program Files\OWN\OWN.exe"  '设置该快捷方式的图标
    iwCreateLNK.Save
End SubPrivate Sub cmdGetLNKInfo_Click()
   
   Set iwSC = iwSH.CreateShortcut("c:\Foxmail.lnk
")
   msgbox iwSC.targetPath   '获取快捷方式的目标文件   '另外还有其它属性保存着该快捷方式的信息
End Sub
另外：如果找不到Windows Script Host Object Model 
的引用请直接在引用中单击“浏览”,并将文件类型改为*.OCX,找到该文件:Wshom.ocx 即可引用它了。

Answer 1

还要引用OCX文件呀？有没有直接使用API的方法呀！

Answer 2

在VB的光盘上找到一个shelllink的目录下有一个源码。

Answer 3

Dim iwSH As New IWshRuntimeLibrary.IWshShell_Class
Dim iwSC As IWshRuntimeLibrary.IWshShortcut_Class
Dim s As String
    s = Dir("c:\windows\recent\*.*")
    While s <> ""
        s = Dir()
  
        
        Set iwSC = iwSH.CreateShortcut("c:\windows\recent\" + s)   MsgBox iwSC.TargetPath   '获取快捷方式的目标文件
        Exit Sub
        
    Wend
End Sub

Answer 4

在VB的安装盘上有一个shelllink(好像是这么拼的)的目录下附带对快捷方式操作的示例