단축키에 특정 단축키 조합을 할당 할 수없는 경우 단축키가 이미 등록되었을 수 있습니다. 그러나 현재 단축키를 사용하는 단축키와 폴더 경로는 무엇입니까? 이 게시물에 첨부 된 스크립트를 실행하여 찾을 수 있습니다.
이 스크립트는 데스크톱 및 시작 메뉴 (사용자 및 컴퓨터 별 위치), 빠른 실행, 작업 표시 줄 – 사용자 고정 및 모든 하위 폴더에서 바로 가기를 재귀 적으로 검색하고 다음과 같이 팝업 창에 바로 가기 키가 지정된 바로 가기 목록을 표시합니다. 아래 이미지에서.
이 스크립트에는 제한이 있습니다. 나중에 구현할 수있는 .URL (인터넷 바로 가기)에 대한 단축키를 얻을 수 없습니다.
바로 여기에 바로 가기 단축키를 나열하기 위해 내가 작성한 빠른 스크립트의 내용이 있습니다.
'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 ListHotKeys.vbs 다운로드 (zip 압축)
관련 타사 유틸리티
RJL 소프트웨어의 바로 가기 키 탐색기
Nirsoft의 HotKeysList
