Diễn đàn sư phạm Yên Bái
Khách viếng thăm sẽ rất thiệt thòi đấy!!! Đăng nhập để chia sẻ... Ghi danh để yêu thương... ^^
Diễn đàn sư phạm Yên Bái

Kết nối cộng đồng sư phạm Online


You are not connected. Please login or register

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

Go down  Message [Page 1 of 1]

rongbay

rongbay
Tôi là thuyền trưởng của cuộc đời tôi
Tôi là thuyền trưởng của cuộc đời tôi
1. 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\
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 :

Code:
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



:vietnam: 
♥️…Không Thương…♥️…Không Nhớ…♥️…Không Mơ Mộng…♥️……♥️…Không Buồn…♥️…Không Chán…♥️…Lệ Không Rơi..♥️……♥️…Không Yêu Ai Cả…♥️…Lòng Băng Giá…♥️……♥️…Không Nhớ Ai Cả…♥️…Hồn Tự Do…♥️
https://m.facebook.com/thienthanbebong199 http://xemboi.uiwap.com

Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum