[اليوم السابع]

(13-11-20, 02:30 PM)Anas Mahmoud كتب :

كود :

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()

شكرا اخي ولكن لم يحدث شئ ما زال لا يعمل شورت كات