Hossis
دوشنبه 04 خرداد 1394, 17:06 عصر
برای پیدا کردن مقصد یک میانبر از ویندوز و دسکتاپ کدی هست؟
zahedi121
دوشنبه 04 خرداد 1394, 19:42 عصر
سلام
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 آدرس میانبر باید قرار بگیرد
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.