2007/05/24

open_shortcut_folder.vbsはショートカットをドロップするとそのショートカットがあるフォルダを開きます。
sendtoにショートカットを登録して使います。

ちなみにsendtoは「ファイル名を指定して実行」で「shell:sendto」ですぐに開けます。

Set WshShell = CreateObject("WScript.Shell")
Set Fs = CreateObject("Scripting.FileSystemObject")
For Each sArgument In WScript.Arguments
    If Fs.FileExists(sArgument) And _
    LCase(Fs.GetExtensionName(sArgument)) = "lnk" Then
        Set oShortcut=WshShell.CreateShortcut(sArgument)
        WshShell.Run "explorer.exe /select," & oShortcut.TargetPath 
    End If
Next

こういうスクリプトはPowerShellじゃ組めないですよねー。機能的にはできても、まずドロップができない、コンソールは出るし…

元記事:http://blogs.wankuma.com/mutaguchi/archive/2007/05/24/78147.aspx

Copyright © 2005-2016 Daisuke Mutaguchi All rights reserved

mailto: mutaguchi at roy.hi-ho.ne.jp

Awards

Books

Twitter