Masaüstüne Excel Kısayolu Vbs

Masaüstüne Excel Kısayolu Vbs

set WshShell = WScript.CreateObject ( “WScript.Shell”)
strDesktop = WshShell.SpecialFolders ( “Masaüstü”)
oShellLink set = WshShell.CreateShortcut (strDesktop _
& “\ MyExcel.lnk”)
oShellLink.TargetPath = _
“C: \ Program Files \ Microsoft Office \ OFFICE11 \ excel.exe”
oShellLink.WindowStyle = 1
oShellLink.Hotkey = “CTRL + SHIFT + F”
oShellLink.IconLocation = _
“C: \ Program Files \ Microsoft Office \ OFFICE11 \ excel.exe, 0”
oShellLink.Description = “My Excel Kısayol”
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save