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

(07-01-21, 06:22 PM)ابو روضة كتب :

السلام عليكم ورحمة الله وبركاته..

أخوتى أريد كود لعمل اختصار لسطح المكتب لآى مجلد أكتب مساره مثلا فى التكست بوكس..

يعنى مثلا أريد عمل إختصار لهذا المجلد على سطح المكتب

E:\الفيجوال\Selenium

كود :

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