Question

VB用openFileDialog获取快捷方式的地址

我想用openFileDialog获得快捷方式本身的地址，而不是快捷方式指向的地址，请问应该怎么做呢？谢谢！

Answer 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "快捷方式 (*.lnk)|*.lnk|All files (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.RestoreDirectory = True
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            MsgBox(OpenFileDialog1.FileName)
        End If
    End Sub