소프트웨어 Everything 잘 아시는 분 질문드립니다.

안녕하세요. 우클릭 메뉴 - 보내기 항목에 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

답변 고맙습니다.

VBS가 정말 편리하긴 하네요.

잘 되는데요. 설명과 달리 확장자가 포함되네요

그리고 수시로 실행해야하는데 Send to를 거쳐야 하니깐 제 환경엔 맞지 않는 거 같습니다.

그런데...

(지후빠님 답변 내용과는 전혀 상관없이, 또 위에 언급한 문제점과는  별도로)

애초 이 질문글 자체가 잘못된 거 같습니다 ㅠㅠ

예상해서 올릴 때와는 달리 제가 예상했던 결과를 구현하기는 애초 무리였던 거 같습니다.

mp3 파일 경우 풀네임으로 검색되다보니... 동일한 파일이 아니고서야 내 하드내 비슷한 파일은 찾아지질 않네요.

자세하게 설명까지 해주셔서 너무 고맙습니다. VBS는 놔뒀다가 필요시에 응용해서 잘 사용해야겠네요.

수정해서 올리면서 wExt = 1 로 바뀐 것 같습니다 wExt = 0 으로 바꿔 보세요. 출근해서 확인해볼께요 ^^

첨부파일 수정해서 기본 wExt = 0 으로 수정했습니다.

안녕하세요.

1. Apostrophe ['], 주석문(설명문)을 표현할 때에는 홑따옴표(작은따옴표) 하나를 사용합니다.

2. -s 옵션 상태에선 -noww 있으나 없으나 결과는 같은 것 같습니다만... 

스크립트 내용중 objShell.Run  esPath & " -s " & """" & fName & """" 에서

" -s " 을 " -noww -s " 으로 수정하면 될 것 같습니다.