- +++ ファイラーを語ろう Part30 --- [転載禁止]©2ch.net
31 ：名無しさん＠お腹いっぱい。[sage]：2015/10/23(金) 00:08:16.31 ID:0veB3Fvk0 - 個人的メモ：EverythingからQ-Dirにパスを投げて開くためのクッション
vbs版---ここから---
Dim fs , ws , p , I , DIRNAME
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set ws=Wscript.CreateObject("Wscript.Shell")
For p = 0 To WScript.Arguments.Count - 1
I=WScript.Arguments(p)
Next
DIRNAME = """"& fs.GetParentFolderName(I) &""""
ws.Run "Q-Dir.exe " &DIRNAME
vbs版---ここまで---
dosbatch版---ここから---
@echo off
FOR %%I in (%1) do SET DIRNAME=%%~dpI
START Q-Dir.exe "%DIRNAME%"
EXIT
dosbatch版---ここまで---
このどちらかをgo.vbsあるいはgo.batで保存してQ-dir.exeのあるフォルダに入れる
Everythingのオプションのメニュー項目編集の命令文
$exec("C:\hoge\Q-Dir\go.vbs" "%1")あるいは$exec("C:\hoge\Q-Dir\go.bat" "%1")
dosbatch版でコマンドプロンプトがちらつくのが嫌ならショートカットファイルを作成して
そのプロパティを弄ってそれを経由しても大丈夫
|