14-11-20, 02:35 AM
(14-11-20, 02:06 AM)got كتب :(13-11-20, 02:30 PM)Anas Mahmoud كتب :كود :
Dim path As String = "C:\Program Files\king1\Debug\King Master 4.1.0.exe"
Dim DesktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim lnkPath As string = DesktopPath & "\Test.lnk"
Dim thing As New WshShell
Dim shortcut As IWshShortcut
shortcut CType(thing.CreateShortcut(lnkPath), IWshShortcut)
shortcut.TargetPath = path
shortcut.Save()
الله ينور عليك
