소프트웨어 Everything 잘 아시는 분 질문드립니다.
2019.08.28 21:12
에블띵은 "탐색기 오른쪽 마우스메뉴에 검색 등록"이란 옵션이 있는데요.
설정하면, 폴더를 선택했을시만 메뉴가 뜹니다. 실행하면 해당 경로가 자동으로 에블딩 검색창에 입력되면서 실행되죠.
제가 구현하고 싶은 건, 폴더가 아닌 파일을 선택한 후 탐색이 오른쪽 마우스를 통해 에블띵을 실행하는 건데요.
이를테면
D:\Test\윈포.ZIP 이란 파일이 있고
윈포.ZIP을 선택 후 탐색기 오른마우스를 통해 에블띵으로 검색하면
에블띵 검색란에
<경로없이> 파일명인 <윈포.ZIP>만 검색란에 자동입력되면서 자동검색하게 만드는건데요.
레지스트리 수정을 통해 파일선택후 탐색기 오른마우스에 에블띵을 등록시키는 방법은 알고 있고요.
경로:\everything.exe[명령행인자]
단 저 명령행 인자를 어떻게 줘야하는지 모르겠더군요
이렇게 저렇게 하니.. 되긴 하는데
문제는 파일명만 입력되는 게 아닌 <경로:\파일명> 입력되면서 특정 경로서만 검색이 되는게 문제입니다.
경로없이
선택한 파일명으로만
또는 확장자없는 파일명으로만 검색되게 하고 싶거든요.
댓글 [7]
-
지후빠 2019.09.04 19:21
-
윈도면도 2019.09.05 03:40
답변 고맙습니다.
VBS가 정말 편리하긴 하네요.
잘 되는데요. 설명과 달리 확장자가 포함되네요
그리고 수시로 실행해야하는데 Send to를 거쳐야 하니깐 제 환경엔 맞지 않는 거 같습니다.
그런데...
(지후빠님 답변 내용과는 전혀 상관없이, 또 위에 언급한 문제점과는 별도로)
애초 이 질문글 자체가 잘못된 거 같습니다 ㅠㅠ
예상해서 올릴 때와는 달리 제가 예상했던 결과를 구현하기는 애초 무리였던 거 같습니다.
mp3 파일 경우 풀네임으로 검색되다보니... 동일한 파일이 아니고서야 내 하드내 비슷한 파일은 찾아지질 않네요.
자세하게 설명까지 해주셔서 너무 고맙습니다. VBS는 놔뒀다가 필요시에 응용해서 잘 사용해야겠네요.
-
지후빠 2019.09.05 07:08
수정해서 올리면서 wExt = 1 로 바뀐 것 같습니다 wExt = 0 으로 바꿔 보세요. 출근해서 확인해볼께요 ^^
첨부파일 수정해서 기본 wExt = 0 으로 수정했습니다.
-
윈도면도 2019.09.05 14:03
확장자 없이 잘 됩니다. 근데 보내기로 보내는 건 불편해서 컨텍스트메뉴에 바로 뜨게 레지에 등록해봤는데, 그렇게는 실행이 안되네요.
암튼 여러모로 감사드립니다.
-
지후빠 2019.09.05 18:16
context menu에 등록할때 다음 예처럼 앞에 wscript.exe 추가하세요.
wscript.exe c:\Search_in_Everything.vbs "%1"
context menu에 추가하는 예제 파일(reg) 첨부했습니다. 메모장으로 열어서 경로와 단축키 등을 자신에 맞게 수정하세요~.
-
윈도면도 2019.09.08 10:01
지후빠님 잘 됩니다. 아주 편리하네요.
요즘 조국 때문에 정신 팔려 글 올린 걸 잊어버렸어요. 오늘에서야 댓글 보고 테스트 해봤습니다.
VBS에 대해선 무지의 극치로 간단한 수정도 불가하여 재질문 드릴 수밖에 없는데요.
간단한 거 두가지만 추가로 여쭤볼께요
1. VBS 문서안에 나중에 보더라도 기억나고 참고되게끔 나만의 주석을 달아놓으려하는데요.
문장 맨앞에 어떤 기호를 붙여햐 하나요?
// 주석 쓰기 "//" 이거인가요?
2. 에블띵보면 -noww 스위치가 있습니다. 단어의 일부만 맞아도 결과에 출력하는 기능이죠.
현재의 검색은 거의 '동일파일명 찾기'에 가깝기에 결과의 폭을 넓히기 위해 저 스위치를 사용하려 하는데요.
esPath = """D:\Comn\FileDisk\Manage\Everything_p\everything.exe"""
" 이거 때문에 스위치가 인식을 못하는군요. "를 어떻게 기입해줘야하는지를 모르겠네요.
-
지후빠 2019.09.08 14:29
안녕하세요.
1. Apostrophe ['], 주석문(설명문)을 표현할 때에는 홑따옴표(작은따옴표) 하나를 사용합니다.
2. -s 옵션 상태에선 -noww 있으나 없으나 결과는 같은 것 같습니다만...
스크립트 내용중 objShell.Run esPath & " -s " & """" & fName & """" 에서
" -s " 을 " -noww -s " 으로 수정하면 될 것 같습니다.
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
97055 | 윈 도 우| 데스크탑 윈도우7 전원관리 트레이에 표시하기? [2] | 만쓰별 | 6135 | 12-10 |
97054 | 비스타에서 KMP 쓰시는분들께 질문 있습니다. [4] | 히로 | 6135 | 10-19 |
97053 | XP에서 내가 현재 업데이트를 어디까지했나?? [1] | xp | 6135 | 10-14 |
97052 | 서버 / IT| windows Server 2012 시작프로그램 [6] | 하얀고니 | 6134 | 09-01 |
97051 | 윈 도 우| 윈도우 8 프로랑 엔터프라이즈 어떤게 더 빠르나요? [1] | zzo | 6132 | 10-31 |
97050 | 윈 도 우| 윈도우8 한영 변환 현상.... [6] | 화이팅맨 | 6132 | 10-11 |
97049 | 하드웨어| 노트북 무선 랜카드로는 WOL 이 안되나요? [7] | 미래로 | 6132 | 10-25 |
97048 | 윈 도 우| 윈도우7 기본폰트 변경 질문 드려요. | 민슈 | 6132 | 11-29 |
97047 | 소프트웨어| 램디스크 인터넷 임시파일 위치가 초기화됩니다. [9] | 함달 | 6131 | 11-01 |
97046 | 윈 도 우| 새 바로가기 만들기 - 복구 [2] | CrystalFreed | 6129 | 06-09 |
97045 | 하드웨어| rainmeter 날씨 가젯이 잘 안되네요 | 리버싸우쓰 | 6127 | 11-22 |
97044 | 윈 도 우| 원7 32비트 4g 사용법 질문입니다 [1] | chun | 6126 | 12-04 |
97043 | 여러분은 화면 보호기 기능 되나요? [3] | 빛과소금 | 6126 | 08-07 |
97042 | 하드웨어| 오피스 2010 rearm 명령어 뭔가요? | 데스윙 | 6125 | 05-13 |
97041 | WIN7_22in1_KO_DVD.iso (최종 수정) 파일 문제 없나요?? [4] | 혜교 | 6125 | 09-10 |
97040 | 하드웨어| 컴퓨터 소음과 청소에 관련이 있나요? [7] | 400번 | 6124 | 11-27 |
97039 | 비스타가 설치가 안되는 이유가 무엇일까요.. [6] | 김훈기 | 6124 | 10-18 |
97038 | 윈 도 우| 불법 KMS같은거 설치하면 악성코드 걸릴수도 있나요? [10] | 고장난우주 | 6123 | 11-26 |
97037 | 어베스트(AVAST) 방화벽 설정 [4] | 파라 | 6123 | 10-14 |
97036 | 윈 도 우| 리소스 모니터에서 수정한 날짜 란? [1] | 배불러사망 | 6121 | 05-26 |
안녕하세요. 우클릭 메뉴 - 보내기 항목에 VBS를 추가하는 방법은 어떠신가요?
첨부 파일 Search_in_Everything.vbs 을 c:\Users\
사용자\AppData\Roaming\Microsoft\Windows\SendTo\아래에 복사하고 탐색기에서 파일이나 폴더를 우클릭 -> 보내기 -> Search_in_Everything 선택하면 됩니다.
아래는 스크립트 내용인데요.
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
esPath = """d:\PortableApps\Everything\Everything.exe""" <- 각자에 맞는 Everything 전체 경로를 입력
wExt = 0 <- 확장자까지 같이 검색하려면 1로 바꾸세요.
strPath = 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