MediaMonkey Vol.03 [sc](★0)
-
- 1
- 2010/09/01(水) 15:37:18
-
MediaMonkey 公式サイト(英語)
ttp://www.mediamonkey.com/
MediaMonkeyまとめサイト
ttp://mediamonkey.xn--m8jfw.jp/
前スレ
MediaMonkey Vol.02
http://hibari.2ch.net/test/read.cgi/software/1232293352/
-
- 187
- 2011/06/04(土) 23:31:16.01
-
>>186
過去スレであったな。以下をメモ帳に書いてFolderOpen.vbs とういう名前、拡張子にして
\MediaMonkey\Scripts\Auto に入れる。自己責任で
Sub OnStartup
Set UI = SDB.UI
Set Mnu = UI.AddMenuItem( UI.Menu_Pop_TrackList, -1, 1)
Mnu.Caption = "フォルダを開く(&D)"
Mnu.UseScript = Script.ScriptPath
Mnu.OnClickFunc = "OpenExp"
Mnu.Shortcut = "Ctrl+1"
Mnu.IconIndex = 70
Set Mnu = UI.AddMenuItem( UI.Menu_Pop_NP, -1, 1)
Mnu.Caption = "フォルダを開く(&D)"
Mnu.UseScript = Script.ScriptPath
Mnu.OnClickFunc = "OpenExp"
Mnu.Shortcut = "Ctrl+1"
Mnu.IconIndex = 70
End Sub
Sub OpenExp( Itm)
dim TesSong, fs, f, s
TesSong = SDB.SelectedSongList.Item(0).Path
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(TesSong)
s = Chr(34) & f.ParentFolder & Chr(34)
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "explorer.exe " & s
End Sub
-
- 188
- 2011/06/04(土) 23:36:47.93
-
めんどくさきゃ
右クリック>同じものを検索>フォルダ（エクスプローラ） で普通にできる
このページを共有する
おすすめワード