Khắc phục lổi mất shortcut trong Send To

Bạn tạo shortcut cho một hay nhiều ứng dụng sau khi xong , khi bạn nhấn chuột phải vào một

thư mục hay tập tin và chọn chức năng Send To , các shortcut này sẽ không hiển thị ra theo như

ý muốn của bạn . Nguyên nhân do đường dẩn của SendTo bạn chưa thiết lập đúng cách .

Mắc dù bạn chép shortcut vào trong thư mục Documents and Settings\<Tên tài khoản đăng

nhập>\SendTo tuy nhiên nó vẩn không xuất hiện các shortcut .

Để 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

                                                                                     Thu thuat vi tinh