Ý kiến 1
Để giải quyết lổi này bạn mở Notepad và chép đoạn mã sau vào :
Set WshShell = CreateObject("Wscript.Shell")
USFolderPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell
Folders"
On Error resume next
WshShell.RegWrite "HKCR\exefile\shellex\DropHandler\", "{86C86720-42A0-1069-A2E8-
08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCR\lnkfile\shellex\DropHandler\", "{00021401-0000-0000-C000-
000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "\SendTo", "%USERPROFILE%\SendTo",
"REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
MsgUser = Msgbox ("Fixed the Send To menu. Restart Windows for the changes to take effect",
4160, "'Send To' menu fix for Windows XP")
Set WshShell = Nothing
Lưu tập tin này và đặt tên là fixsendto.vbs
Ý kiến 2
...
Để giải quyết lổi này bạn mở Notepad và chép đoạn mã sau vào :
Set WshShell = CreateObject("Wscript.Shell")
USFolderPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell
Folders"
On Error resume next
WshShell.RegWrite "HKCR\exefile\shellex\DropHandler\", "{86C86720-42A0-1069-A2E8-
08002B30309D}", "REG_SZ"
WshShell.RegWrite "HKCR\lnkfile\shellex\DropHandler\", "{00021401-0000-0000-C000-
000000000046}", "REG_SZ"
WshShell.RegWrite USFolderPath & "\SendTo", "%USERPROFILE%\SendTo",
"REG_EXPAND_SZ"
Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
MsgUser = Msgbox ("Fixed the Send To menu. Restart Windows for the changes to take effect",
4160, "'Send To' menu fix for Windows XP")
Set WshShell = Nothing
Lưu tập tin này và đặt tên là fixsendto.vbs
Ý kiến 2
...