Выбор папки из ярлыка

Imports System.IO 
 
Public Module ShortcutHelper 
    Public Function IsShortcut(strPath As String) As Boolean 
        If Not File.Exists(strPath) Then 
            Return False 
        End If 
 
        Dim directory As String = Path.GetDirectoryName(strPath) 
        Dim strFile As String = Path.GetFileName(strPath) 
 
        Dim shell As Shell32.Shell = New Shell32.Shell() 
        Dim folder As Shell32.Folder = shell.NameSpace(directory) 
        Dim folderItem As Shell32.FolderItem = folder.ParseName(strFile) 
 
        If folderItem IsNot Nothing Then 
            Return folderItem.IsLink 
        End If 
 
        Return False 
    End Function 
 
    Public Function ResolveShortcut(strPath As String) As String 
        If IsShortcut(strPath) Then 
            Dim directory As String = Path.GetDirectoryName(strPath) 
            Dim strFile As String = Path.GetFileName(strPath) 
 
            Dim shell As Shell32.Shell = New Shell32.Shell() 
            Dim folder As Shell32.Folder = shell.NameSpace(directory) 
            Dim folderItem As Shell32.FolderItem = folder.ParseName(strFile) 
 
            Dim link As Shell32.ShellLinkObject = folderItem.GetLink 
 
            Return link.Path 
        End If 
 
        Return String.Empty 
    End Function 
End Module