پیدا کردن مقصد یک میانبر

[Hossis]

برای پیدا کردن مقصد یک میانبر از ویندوز و دسکتاپ کدی هست؟

[zahedi121]

سلام

Function GetTargetPath(ByVal FileName As String)
Dim Obj As Object
Obj = CreateObject("WScript.Shell")
Dim Shortcut As Object
Shortcut = Obj.CreateShortcut(FileName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save()
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox(GetTargetPath("c:\zahedi121.lnk"))
End Sub

به جای c:\zahedi121.lnk آدرس میانبر باید قرار بگیرد

موفق باشید