Chào mừng quý vị đến với WEBSITE-Bùi Văn Tiến-thpt Buôn Ma Thuột.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > Tin học tổng hợp >
1. Khắc phục lổi mất shortcut trong Send To
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\<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
Bùi Văn Tiến @ 10:58 21/02/2009
Số lượt xem: 2135
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
Bùi Văn Tiến @ 10:58 21/02/2009
Số lượt xem: 2135
Số lượt thích:
0 người
HOA NGHỆ THUẬT
Các ý kiến mới nhất