2007/05/24
[WSH]ショートカットのリンク先を開く
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プライバシーポリシー