Script to repair missing "send to > desktop" in Windows 8 (VBScript)

Introduction

This script is used to repair missing send to > desktop shortcut.

Scenarios

Sometimes Because of the virus, our computer maybe miss "send to > desktop". This script is to try to repair this problem .However, as we all know, the causes of this problem is so many, this script solve the file missing.

Script

Step 1: Double click the script.

Before script executes:

After script executes:

Here are some code snippets for your references. To get the complete script sample, please click the download button at the beginning of this page.

PowerShell

Edit|Remove

Dim objshell, AppPath,AppData,Path,FSO,Destination
'Create wscript.shell object 
Set objshell = CreateObject("wscript.shell")
'Create scripting.filesystemobject 
Set FSO = CreateObject("scripting.FileSystemObject")
'Get AppData foler path 
AppData = objshell.ExpandEnvironmentStrings("%APPDATA%")
'Get shortcut path 
Path = AppData + "\Microsoft\Windows\SendTo\Desktop (create shortcut).DeskLink"
'Get shortcut parent folder path 
Destination = AppData & "\Microsoft\Windows\SendTo\"

Dim objshell, AppPath,AppData,Path,FSO,Destination 
'Create wscript.shell object  
Set objshell = CreateObject("wscript.shell") 
'Create scripting.filesystemobject  
Set FSO = CreateObject("scripting.FileSystemObject") 
'Get AppData foler path  
AppData = objshell.ExpandEnvironmentStrings("%APPDATA%") 
'Get shortcut path  
Path = AppData + "\Microsoft\Windows\SendTo\Desktop (create shortcut).DeskLink" 
'Get shortcut parent folder path  
Destination = AppData & "\Microsoft\Windows\SendTo\"

Prerequisite

Windows 8