VB6读取快捷方式的三项

雨夜

请问如何用VB6读取快捷方式的"目标"、"图标"以及 快捷方式的名称 等三项内容?

马大哈

与创建快捷方式一样的开头.

不过传入的路径是已存在的lnk文件,这样就会取得这个对象.

然后可以查询它的各个属性了.

1. Public Sub GetLnk(ByVal FilePath As String)
   
2. Dim WshShell As Object, oShellLink As Object, strDesktop As String
   
3. 
   
4. Set WshShell = CreateObject("WScript.Shell")
   
5. 
   
6. strDesktop = WshShell.SpecialFolders("Desktop") '桌面路径
   
7. Set oShellLink = WshShell.CreateShortcut(FilePath)
   
8. 
   
9. Debug.Print oShellLink.TargetPath
   
10. Debug.Print oShellLink.Arguments
    
11. Debug.Print oShellLink.WindowStyle '风格
    
12. Debug.Print oShellLink.Hotkey '热键
    
13. 
    
14. Debug.Print oShellLink.IconLocation
    
15. 
    
16. Debug.Print oShellLink.Description '快捷方式备注内容
    
17. Debug.Print oShellLink.WorkingDirectory '源文件所在目录
    
18. 
    
19. Set WshShell = Nothing
    
20. Set oShellLink = Nothing
    
21. End Sub

复制代码

zmh886

不错- -