소프트웨어 선택한 파일명으로 Everything에서 검색
2019.09.04 19:54
안녕하세요. 이게 필요할까 싶기는 한데요. 질문 글이 있어서 해봤습니다. 잠시 올렸다가 지울까 합니다.
"윈도면도"님 질문글; https://windowsforum.kr/12088498
여러 방법으로 할 수 있을 것 같습니다. 검색해보니 오토핫키를 이용한 방법도 괜찮아보입니다.
https://sforzanto.tistory.com/11
저는 VBS 스크립트를 만들어 c:\Users\(사용자)\AppData\Roaming\Microsoft\Windows\SendTo\ 에 넣어두고
탐색기에서 파일이나 폴더 선택후 마우스 우클릭하여 보내기 메뉴 아래 있는 vbs 파일로 보내는 방법으로 해봤습니다.
먼저 Search_in_Everything.vbs 파일을 각자의 사용자 계정내 SendTo 폴더에 저장합니다.
스크립트에서 자신의 환경에 맞게 esPath 를 수정합니다. wExt 가 1이면 확장자 포함이고, 0이면 확장자 제외입니다.
탐색기에서 파일이나 폴더 우클릭후 보내기 메뉴에서 Search_in_Everything 선택하시면 아래처럼 Everything 검색창이...
[파일 선택시]
[폴더 선택시]
얼마전 보았던 게시물이 생각나 해보았습니다. Everything 잘 쓰고 있어서 흥미가 생겼나 봅니다. ^^;
VBS를 context menu에 등록할때는 다음 예처럼 앞에 wscript.exe 추가하세요.
wscript.exe c:\Search_in_Everything.vbs "%1"
context menu에 추가하는 예제 파일(reg) 첨부했습니다. 메모장으로 열어서 경로와 단축키 등을 자신에 맞게 수정하세요~.
댓글 [17]
-
cungice 2019.09.04 21:17
-
Star★Bros 2019.09.04 21:29
출처: https://starbros.blog.me/220575132983
저도 비슷한걸 직접 만들어 예전에 올렸던것 같은데 검색귀찮아서 다시 올립니다.
다차자x32.exe 다차자x64.exe
아시다시피 윈도보안상 vbs 코드들어간건 모두 바이러스 취급해서 실행이 원활치 않지만, 허용해도 아무문제없습니다.
바이러스나 악성코드 1도 없습니다. 제 목숨걸고 보증합니다! ミ:つÞ -
윈도면도 2019.09.08 10:20
고맙습니다 한번 써볼께요
-
윈도면도 2019.09.08 09:50
어유 고맙습니다. 조국 때문에 정신 팔려 질문글 올린 것도 새까맣게 잊어버려 댓글 확인도 못하고 오늘에서야 들어와 보네요.
-
LoTto 2019.09.09 06:37
오류가 나내요.
-
지후빠 2019.09.09 14:15
스크립트 인수로 넘겨주는 문자열에 문제가 있는 것 같습니다. 명령줄을 어떻게 하셨을까요?
-
LoTto 2019.09.09 16:26
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")esPath = """C:\Windows\Everything.exe"""
wExt = 0strPath = WScript.Arguments.Item(0)
mrk = InStrRev(strPath, "\")
If mrk > 0 Then
strName = Right(strPath, Len(strPath) - mrk)
prd = InStrRev(strName, ".")
If prd > 0 and wExt = 0 Then
fName = Left(strName, prd - 1)
Else
fName = strName
End If
objShell.Run esPath & " -s " & """" & fName & """"
End If
Set objShell = Nothing============================================
파일 경로만 수정했어요.
-
지후빠 2019.09.09 17:56
그게 아니라 Search_in_Everything.vbs 뒤에 파일 이름이나 폴더 이름이 와야 해요. (전체 경로 이름)
예를 들면 Search_in_Everything.vbs "d:\Temp & etc\file_name.jpg"
또는 Search_in_Everything.vbs "d:\My Documents\공유기"
-
LoTto 2019.09.10 02:41
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\SearchInEverything]
@="Everything으로 찾기(&1)"
"ICON"="shell32.dll,22"[HKEY_CLASSES_ROOT\*\shell\SearchInEverything\command]
@="wscript.exe c:\\Search_in_Everything.vbs \"%1\""[HKEY_CLASSES_ROOT\Folder\shell\SearchInEverything]
@="Everything으로 찾기(&1)"
"ICON"="shell32.dll,22"[HKEY_CLASSES_ROOT\Folder\shell\SearchInEverything\command]
@="wscript.exe c:\\Search_in_Everything.vbs \"%1\""=======================================================
본 레지스트리의 내용인데요. 어디다가 적어야 하나요?
예)
@="wscript.exe c:\\Search_in_Everything.vbs \"%1\""
이런식으론가요?
@="wscript.exe Search_in_Everything.vbs C:\\Windows\\Everything.exe \"%1\""
-
지후빠 2019.09.10 13:53
어? 맞는데요. 탐색기에서 폴더나 파일 선택후 우측 클릭하여 "Everything으로 찾기"하시면 나오는 에러인가요?
선택된 파일이나 폴더 이름에 특수 문자가 있을까요?
매번 나타나는 에러인지 특별한 이름에서만 나오는 에러인지 확인 부탁드립니다. ^^;
-
LoTto 2019.09.10 19:30
컨텍스트 메뉴에는 잘 등록이 되었는데 "임의의파일" 선택하면 Search_in_Everything.vbs 파일을 찾을 수 없다는 오류가 나타나내요.
폴더도 마찬가지 입니다.
-
지후빠 2019.09.10 22:58
제가 올려드린 레지스트리 다시 실행하시구요.
Search_in_Everything.vbs 는 C:\ 루트에 저장하시고, 메모장으로 열어서
esPath = """C:\Windows\Everything.exe""" 처럼 자신의 everything.exe 위치가 맞는지 확인 부탁드립니다. ㅠㅠ
-
와니 2019.09.10 22:54
저는 "스크립트 파일 "C:\Search_in_Everything.vbs" 를 찾을 수 없습니다" 로 나와 C:\ 에 Search_in_Everything.vbs 파일을 넣으니 정상 작동 합니다.
-
지후빠 2019.09.10 23:00
와니님 처럼 되어야 하는데 뭔가 틀어진 것 같은데 알수 없으니 답답하네요. ㅠㅠ
-
레마클로 2019.09.11 22:16 제가 사용하는 Everything-cb.vbs
==================================
클립보드에 복사된 텍스트를 단순 붙여넣기하는 방식입니다
텍스트 복사 후 Everything-cb.vbs을 실행.......
Everything-cb.vbs
----------------------
Const strComputer = "."
Dim objWMIService, colProcessList
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
ProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramW6432%")
Eve = ProgramFiles & "\Easy Context Menu\Files\Launcher\et\Everything.exe"Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'UTIL.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next'Get clipboard contents
Set objHTML = CreateObject("htmlfile")
cbText = objHTML.ParentWindow.ClipboardData.GetData("text")'Test for empty string
If IsNull(cbText) Then
MsgBox "The clipboard is empty.", 0, "WPDOS.org"
WScript.Quit
Else
End If'Paste clipboard text
WshShell.Run Chr(34) & Eve & Chr(34) & " -s " & Chr(34) & cbText & Chr(34)WScript.Quit
-
LoTto 2019.09.11 23:16
요번 업데이트를 기점으로 포맷 후 다시 처음부터 해봤습니다.
컨텍스트 메뉴 등록 잘되고 파일이나 폴더에서 클릭하니 "Everything" 프로그램 실행까지도 잘되는데요.
---------------------------------------------------------------------------
위 사진 이미지처럼 "TWAIN"파일 선택해서 클릭하니 그냥 "Everything" 프로그램만 띄워 주는 군요.
"Temp"폴더도 마찬가지 이고요. 원래 이런건지
제가 생각한 건 "TWAIN"파일 선택해서 클릭하면 "Everything" 프로그램 실행되면서
자동으로 "TWAIN"파일이 검색되는 걸로 생각했습니다.
"Temp"폴더도 마찬가지로 "Everything" 프로그램 실행되면서 함께 검색까지 되는 걸로...
---------------------------------------------------------------------------
원래 "Everything" 프로그램만 실행 되는게 맞다면 현재 잘되는거 같습니다.
아무래도 윈도우에 뭔가가 꼬였나 봅니다.
댓글 감사합니다. -
슈머슈마 2021.11.18 21:41
좋네요 감사합니다.
수고 많으셨습니다. 감사합니다.