Si no puede asignar una combinación de teclas de acceso rápido en particular para un acceso directo, es posible que ya se haya registrado. Pero, ¿qué acceso directo está usando la tecla de acceso rápido y desde qué ruta de carpeta? Puede averiguarlo ejecutando el script adjunto a esta publicación.
Este script busca de forma recursiva los accesos directos en el escritorio y el menú Inicio (ubicaciones por usuario y por máquina), Inicio rápido, Barra de tareas - Usuario anclado y todas sus subcarpetas, y muestra la lista de accesos directos con asignaciones de teclas de acceso rápido en una ventana emergente como en la imagen de abajo.
Este script tiene una limitación; no puede obtener las teclas de acceso rápido para .URL (accesos directos de Internet), que puedo implementar en el futuro.
Así que aquí está el contenido del script rápido que se me ocurrió, para enumerar teclas de acceso directo.
'Script Info: Obtains the List of Shortcuts With a Hotkey assigned 'Author: Ramesh Srinivasan, for The Winhelponline Blog 'Created on May 5 2016 'Modified on May 19 2016 'URL: https://www.winhelponline.com/blog Option Explicit Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") Dim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell") Dim arrFolders, objFolder, fldr, colfiles, colFolders Dim objFile, objSubFolder, oShellLink, strHotKey arrFolders = Array ( _ WshShell.SpecialFolders("AllUsersDesktop") _, WshShell.SpecialFolders("Desktop") _, WshShell.SpecialFolders("AllUsersStartMenu") _, WshShell.SpecialFolders("StartMenu") _, WshShell.SpecialFolders("AppData") & _ "\Microsoft\Internet Explorer\Quick Launch" _ ) For Each fldr In arrFolders If objFSO.FolderExists (fldr) Then Call GetHotKeys (fldr) Next Sub GetHotKeys (strFolder) Set objFolder = objFSO.GetFolder(strFolder) Set colFiles = objFolder.Files For Each objFile In colFiles If LCase(objFSO.GetExtensionName(objFile.Name)) = "lnk" Then Set oShellLink = WshShell.CreateShortcut(objFile.Path) If Trim(oShellLink.Hotkey) "" Then strHotKey = strHotKey & "[" & Trim(oShellLink.Hotkey) & _ "]" & vbCrLf & objFile.Path & vbCrLf & vbCrLf End If End If Next Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders GetHotKeys(objSubFolder) Next End Sub WshShell.PopUp strHotKey,, "Hotkeys Curently in Use by Shortcuts", 65 Set WshShell = Nothing Set objFSO = Nothing Descargar ListHotKeys.vbs (comprimido)
Utilidades de terceros relacionadas
Explorador de teclas de acceso directo por software RJL
HotKeysList por Nirsoft
