Send to menu not shows all the entries in SendTo folder
2
As in the screenshot above I have all the default entries along with some added by myself manually in the send to menu folder which I opened using shell:SendTo.
But not all the entries are showing up in the send to menu.
How to fix this?
windows-10 send-to
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
asked Jan 10 at 15:27
achinthaachintha
156
add a comment |
2
As in the screenshot above I have all the default entries along with some added by myself manually in the send to menu folder which I opened using shell:SendTo.
But not all the entries are showing up in the send to menu.
How to fix this?
windows-10 send-to
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
asked Jan 10 at 15:27
achinthaachintha
156
According to winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that might fix it. (It's for Windows XP, but it might still apply.)
– Doug Deden
Jan 10 at 15:40
I have checked that, but it shows a message when I executed the script that it only works in windows 7 and below :/
– achintha
Jan 10 at 16:05
The code that gives you that message is checking if the OS is XP, Vista, or 7, and choosing a directory structure accordingly. (I suspect that when they wrote it, Window 8 and 10 did not yet exist.) You can modify the script to have it treat Windows 10 the same as Windows 7 -- the directory in question is the same for 10 as it is for 7.
– Doug Deden
Jan 10 at 16:10
ah, that fixed it, I've changed the script and executed. Everything back on track. Thank you Doug :)
– achintha
Jan 10 at 16:29
That's great news. I'll write it up as an answer.
– Doug Deden
Jan 10 at 16:32
add a comment |
2
2
2
1
As in the screenshot above I have all the default entries along with some added by myself manually in the send to menu folder which I opened using shell:SendTo.
But not all the entries are showing up in the send to menu.
How to fix this?
windows-10 send-to
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
asked Jan 10 at 15:27
achinthaachintha
156
As in the screenshot above I have all the default entries along with some added by myself manually in the send to menu folder which I opened using shell:SendTo.
But not all the entries are showing up in the send to menu.
How to fix this?
windows-10 send-to
windows-10 send-to
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
asked Jan 10 at 15:27
achinthaachintha
156
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
asked Jan 10 at 15:27
achinthaachintha
156
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
edited Jan 10 at 16:40
Twisty Impersonator
18.4k146699
18.4k146699
asked Jan 10 at 15:27
achinthaachintha
156
asked Jan 10 at 15:27
achinthaachintha
156
asked Jan 10 at 15:27
achinthaachintha
156
156
According to winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that might fix it. (It's for Windows XP, but it might still apply.)
– Doug Deden
Jan 10 at 15:40
I have checked that, but it shows a message when I executed the script that it only works in windows 7 and below :/
– achintha
Jan 10 at 16:05
The code that gives you that message is checking if the OS is XP, Vista, or 7, and choosing a directory structure accordingly. (I suspect that when they wrote it, Window 8 and 10 did not yet exist.) You can modify the script to have it treat Windows 10 the same as Windows 7 -- the directory in question is the same for 10 as it is for 7.
– Doug Deden
Jan 10 at 16:10
ah, that fixed it, I've changed the script and executed. Everything back on track. Thank you Doug :)
– achintha
Jan 10 at 16:29
That's great news. I'll write it up as an answer.
– Doug Deden
Jan 10 at 16:32
add a comment |
According to winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that might fix it. (It's for Windows XP, but it might still apply.)
– Doug Deden
Jan 10 at 15:40
I have checked that, but it shows a message when I executed the script that it only works in windows 7 and below :/
– achintha
Jan 10 at 16:05
The code that gives you that message is checking if the OS is XP, Vista, or 7, and choosing a directory structure accordingly. (I suspect that when they wrote it, Window 8 and 10 did not yet exist.) You can modify the script to have it treat Windows 10 the same as Windows 7 -- the directory in question is the same for 10 as it is for 7.
– Doug Deden
Jan 10 at 16:10
ah, that fixed it, I've changed the script and executed. Everything back on track. Thank you Doug :)
– achintha
Jan 10 at 16:29
That's great news. I'll write it up as an answer.
– Doug Deden
Jan 10 at 16:32
According to winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that might fix it. (It's for Windows XP, but it might still apply.)
– Doug Deden
Jan 10 at 15:40
According to winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that might fix it. (It's for Windows XP, but it might still apply.)
– Doug Deden
Jan 10 at 15:40
I have checked that, but it shows a message when I executed the script that it only works in windows 7 and below :/
– achintha
Jan 10 at 16:05
I have checked that, but it shows a message when I executed the script that it only works in windows 7 and below :/
– achintha
Jan 10 at 16:05
The code that gives you that message is checking if the OS is XP, Vista, or 7, and choosing a directory structure accordingly. (I suspect that when they wrote it, Window 8 and 10 did not yet exist.) You can modify the script to have it treat Windows 10 the same as Windows 7 -- the directory in question is the same for 10 as it is for 7.
– Doug Deden
Jan 10 at 16:10
The code that gives you that message is checking if the OS is XP, Vista, or 7, and choosing a directory structure accordingly. (I suspect that when they wrote it, Window 8 and 10 did not yet exist.) You can modify the script to have it treat Windows 10 the same as Windows 7 -- the directory in question is the same for 10 as it is for 7.
– Doug Deden
Jan 10 at 16:10
ah, that fixed it, I've changed the script and executed. Everything back on track. Thank you Doug :)
– achintha
Jan 10 at 16:29
ah, that fixed it, I've changed the script and executed. Everything back on track. Thank you Doug :)
– achintha
Jan 10 at 16:29
That's great news. I'll write it up as an answer.
– Doug Deden
Jan 10 at 16:32
That's great news. I'll write it up as an answer.
– Doug Deden
Jan 10 at 16:32
add a comment |
1 Answer
1
active
oldest
votes
3
According to https://winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that should fix it.
It was originally for Windows XP, Vista, and 7, so I've made a slight change to get it to work for Windows 10.
Save the following script to a file fixsendto.vbs, and execute it using command prompt wscript.exe "C:Scriptsfixsendto.vbs". Change the file path accordingly.
'-----------------------------------------------------------------
'Compatibility : Windows XP, Windows Vista and Windows 7 (added 8 and 10)
'Author : Ramesh Srinivasan - Microsoft MVP (Windows Shell)
'Created on : February 19, 2005
'Revised on : November 01, 2010
'Description : Fixes the Send To menu (missing all the shortcuts)
'Homepage : http://windowsxp.mvps.org
'More Info : http://windowsxp.mvps.org/sendtofix.htm
'Requirement : Needs Administrative privileges
'-----------------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\" & strComputer & "rootcimv2")
'Determine OS version
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
if instr(objOperatingSystem.Caption,"Vista") Or instr(objOperatingSystem.Caption,"Windows 7") Or instr(objOperatingSystem.Caption,"Windows 8") Or instr(objOperatingSystem.Caption,"Windows 10") then
strSendTo = "%USERPROFILE%AppDataRoamingMicrosoftWindowsSendTo"
elseif instr(objOperatingSystem.Caption,"XP") Then
strSendTo = "%USERPROFILE%SendTo"
else
MsgBox "This script runs in Windows 10/8/7/Vista/XP systems only"
wscript.Quit
end if
Next
USFolderPath = "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders"
On Error Resume Next
WshShell.RegWrite "HKCRexefileshellexDropHandler", "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCRlnkfileshellexDropHandler", "{00021401-0000-0000-C000-000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "SendTo", strSendTo, "REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
'Get curr. user name
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
strCurrentUserName = objItem.UserName
Next
'Restart user shell
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Explorer.exe'")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
If strUserDomain & "" & strNameOfUser = strCurrentUserName then
objProcess.Terminate()
End If
Next
MsgUser = Msgbox ("Fixed the Send To menu.", 4160, "'Send To' menu fix for Windows 10/8/7/Vista/XP.")
Set WshShell = Nothing
edited Jan 10 at 19:05
achintha
156
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
1
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
add a comment |
Your Answer
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "3"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1392794%2fsend-to-menu-not-shows-all-the-entries-in-sendto-folder%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
3
According to https://winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that should fix it.
It was originally for Windows XP, Vista, and 7, so I've made a slight change to get it to work for Windows 10.
Save the following script to a file fixsendto.vbs, and execute it using command prompt wscript.exe "C:Scriptsfixsendto.vbs". Change the file path accordingly.
'-----------------------------------------------------------------
'Compatibility : Windows XP, Windows Vista and Windows 7 (added 8 and 10)
'Author : Ramesh Srinivasan - Microsoft MVP (Windows Shell)
'Created on : February 19, 2005
'Revised on : November 01, 2010
'Description : Fixes the Send To menu (missing all the shortcuts)
'Homepage : http://windowsxp.mvps.org
'More Info : http://windowsxp.mvps.org/sendtofix.htm
'Requirement : Needs Administrative privileges
'-----------------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\" & strComputer & "rootcimv2")
'Determine OS version
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
if instr(objOperatingSystem.Caption,"Vista") Or instr(objOperatingSystem.Caption,"Windows 7") Or instr(objOperatingSystem.Caption,"Windows 8") Or instr(objOperatingSystem.Caption,"Windows 10") then
strSendTo = "%USERPROFILE%AppDataRoamingMicrosoftWindowsSendTo"
elseif instr(objOperatingSystem.Caption,"XP") Then
strSendTo = "%USERPROFILE%SendTo"
else
MsgBox "This script runs in Windows 10/8/7/Vista/XP systems only"
wscript.Quit
end if
Next
USFolderPath = "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders"
On Error Resume Next
WshShell.RegWrite "HKCRexefileshellexDropHandler", "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCRlnkfileshellexDropHandler", "{00021401-0000-0000-C000-000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "SendTo", strSendTo, "REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
'Get curr. user name
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
strCurrentUserName = objItem.UserName
Next
'Restart user shell
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Explorer.exe'")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
If strUserDomain & "" & strNameOfUser = strCurrentUserName then
objProcess.Terminate()
End If
Next
MsgUser = Msgbox ("Fixed the Send To menu.", 4160, "'Send To' menu fix for Windows 10/8/7/Vista/XP.")
Set WshShell = Nothing
edited Jan 10 at 19:05
achintha
156
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
1
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
add a comment |
3
According to https://winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that should fix it.
It was originally for Windows XP, Vista, and 7, so I've made a slight change to get it to work for Windows 10.
Save the following script to a file fixsendto.vbs, and execute it using command prompt wscript.exe "C:Scriptsfixsendto.vbs". Change the file path accordingly.
'-----------------------------------------------------------------
'Compatibility : Windows XP, Windows Vista and Windows 7 (added 8 and 10)
'Author : Ramesh Srinivasan - Microsoft MVP (Windows Shell)
'Created on : February 19, 2005
'Revised on : November 01, 2010
'Description : Fixes the Send To menu (missing all the shortcuts)
'Homepage : http://windowsxp.mvps.org
'More Info : http://windowsxp.mvps.org/sendtofix.htm
'Requirement : Needs Administrative privileges
'-----------------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\" & strComputer & "rootcimv2")
'Determine OS version
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
if instr(objOperatingSystem.Caption,"Vista") Or instr(objOperatingSystem.Caption,"Windows 7") Or instr(objOperatingSystem.Caption,"Windows 8") Or instr(objOperatingSystem.Caption,"Windows 10") then
strSendTo = "%USERPROFILE%AppDataRoamingMicrosoftWindowsSendTo"
elseif instr(objOperatingSystem.Caption,"XP") Then
strSendTo = "%USERPROFILE%SendTo"
else
MsgBox "This script runs in Windows 10/8/7/Vista/XP systems only"
wscript.Quit
end if
Next
USFolderPath = "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders"
On Error Resume Next
WshShell.RegWrite "HKCRexefileshellexDropHandler", "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCRlnkfileshellexDropHandler", "{00021401-0000-0000-C000-000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "SendTo", strSendTo, "REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
'Get curr. user name
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
strCurrentUserName = objItem.UserName
Next
'Restart user shell
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Explorer.exe'")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
If strUserDomain & "" & strNameOfUser = strCurrentUserName then
objProcess.Terminate()
End If
Next
MsgUser = Msgbox ("Fixed the Send To menu.", 4160, "'Send To' menu fix for Windows 10/8/7/Vista/XP.")
Set WshShell = Nothing
edited Jan 10 at 19:05
achintha
156
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
1
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
add a comment |
3
3
3
According to https://winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that should fix it.
It was originally for Windows XP, Vista, and 7, so I've made a slight change to get it to work for Windows 10.
Save the following script to a file fixsendto.vbs, and execute it using command prompt wscript.exe "C:Scriptsfixsendto.vbs". Change the file path accordingly.
'-----------------------------------------------------------------
'Compatibility : Windows XP, Windows Vista and Windows 7 (added 8 and 10)
'Author : Ramesh Srinivasan - Microsoft MVP (Windows Shell)
'Created on : February 19, 2005
'Revised on : November 01, 2010
'Description : Fixes the Send To menu (missing all the shortcuts)
'Homepage : http://windowsxp.mvps.org
'More Info : http://windowsxp.mvps.org/sendtofix.htm
'Requirement : Needs Administrative privileges
'-----------------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\" & strComputer & "rootcimv2")
'Determine OS version
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
if instr(objOperatingSystem.Caption,"Vista") Or instr(objOperatingSystem.Caption,"Windows 7") Or instr(objOperatingSystem.Caption,"Windows 8") Or instr(objOperatingSystem.Caption,"Windows 10") then
strSendTo = "%USERPROFILE%AppDataRoamingMicrosoftWindowsSendTo"
elseif instr(objOperatingSystem.Caption,"XP") Then
strSendTo = "%USERPROFILE%SendTo"
else
MsgBox "This script runs in Windows 10/8/7/Vista/XP systems only"
wscript.Quit
end if
Next
USFolderPath = "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders"
On Error Resume Next
WshShell.RegWrite "HKCRexefileshellexDropHandler", "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCRlnkfileshellexDropHandler", "{00021401-0000-0000-C000-000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "SendTo", strSendTo, "REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
'Get curr. user name
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
strCurrentUserName = objItem.UserName
Next
'Restart user shell
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Explorer.exe'")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
If strUserDomain & "" & strNameOfUser = strCurrentUserName then
objProcess.Terminate()
End If
Next
MsgUser = Msgbox ("Fixed the Send To menu.", 4160, "'Send To' menu fix for Windows 10/8/7/Vista/XP.")
Set WshShell = Nothing
edited Jan 10 at 19:05
achintha
156
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
According to https://winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that should fix it.
It was originally for Windows XP, Vista, and 7, so I've made a slight change to get it to work for Windows 10.
Save the following script to a file fixsendto.vbs, and execute it using command prompt wscript.exe "C:Scriptsfixsendto.vbs". Change the file path accordingly.
'-----------------------------------------------------------------
'Compatibility : Windows XP, Windows Vista and Windows 7 (added 8 and 10)
'Author : Ramesh Srinivasan - Microsoft MVP (Windows Shell)
'Created on : February 19, 2005
'Revised on : November 01, 2010
'Description : Fixes the Send To menu (missing all the shortcuts)
'Homepage : http://windowsxp.mvps.org
'More Info : http://windowsxp.mvps.org/sendtofix.htm
'Requirement : Needs Administrative privileges
'-----------------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\" & strComputer & "rootcimv2")
'Determine OS version
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
if instr(objOperatingSystem.Caption,"Vista") Or instr(objOperatingSystem.Caption,"Windows 7") Or instr(objOperatingSystem.Caption,"Windows 8") Or instr(objOperatingSystem.Caption,"Windows 10") then
strSendTo = "%USERPROFILE%AppDataRoamingMicrosoftWindowsSendTo"
elseif instr(objOperatingSystem.Caption,"XP") Then
strSendTo = "%USERPROFILE%SendTo"
else
MsgBox "This script runs in Windows 10/8/7/Vista/XP systems only"
wscript.Quit
end if
Next
USFolderPath = "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders"
On Error Resume Next
WshShell.RegWrite "HKCRexefileshellexDropHandler", "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCRlnkfileshellexDropHandler", "{00021401-0000-0000-C000-000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "SendTo", strSendTo, "REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
'Get curr. user name
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
strCurrentUserName = objItem.UserName
Next
'Restart user shell
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Explorer.exe'")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
If strUserDomain & "" & strNameOfUser = strCurrentUserName then
objProcess.Terminate()
End If
Next
MsgUser = Msgbox ("Fixed the Send To menu.", 4160, "'Send To' menu fix for Windows 10/8/7/Vista/XP.")
Set WshShell = Nothing
edited Jan 10 at 19:05
achintha
156
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
edited Jan 10 at 19:05
achintha
156
edited Jan 10 at 19:05
achintha
156
edited Jan 10 at 19:05
achintha
156
156
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
answered Jan 10 at 16:38
Doug DedenDoug Deden
656212
656212
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
1
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
add a comment |
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
1
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
I think it's better to have details about how to save the script(i mean extension) and how to execute.
– achintha
Jan 10 at 17:03
1
1
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
@achintha Feel free to edit those details into the answer. That's encouraged on Stack Exchange sites.
– Twisty Impersonator
Jan 10 at 17:12
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Super User!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1392794%2fsend-to-menu-not-shows-all-the-entries-in-sendto-folder%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
According to winhelponline.com/xp/sendtofix.htm, it could be a problem with some registry entries that manage the SendTo functionality. They have a script that might fix it. (It's for Windows XP, but it might still apply.)
– Doug Deden
Jan 10 at 15:40
I have checked that, but it shows a message when I executed the script that it only works in windows 7 and below :/
– achintha
Jan 10 at 16:05
The code that gives you that message is checking if the OS is XP, Vista, or 7, and choosing a directory structure accordingly. (I suspect that when they wrote it, Window 8 and 10 did not yet exist.) You can modify the script to have it treat Windows 10 the same as Windows 7 -- the directory in question is the same for 10 as it is for 7.
– Doug Deden
Jan 10 at 16:10
ah, that fixed it, I've changed the script and executed. Everything back on track. Thank you Doug :)
– achintha
Jan 10 at 16:29
That's great news. I'll write it up as an answer.
– Doug Deden
Jan 10 at 16:32