おい！あふを語ろうぜ！Ver.17

フォルダだったら中を開くようにしてみた

'使い方: wscript.exe JumpToLink.vbs "$P\$F"
set WshShell = WScript.CreateObject("WScript.Shell")
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

If WScript.Arguments.Count = 1 Then
If LCase(objFS.GetExtensionName(WScript.Arguments(0))) = "lnk" Then
LinkPath = WshShell.CreateShortcut(WScript.Arguments(0)).TargetPath
If objFS.FolderExists(LinkPath) Then
LinkPath = LinkPath & "\"
End If
Return = WshShell.Run(Chr(34) & "C:\bin\afx\afxcmd.exe" & Chr(34) & " -O" & Chr(34) & LinkPath & Chr(34), 0, FALSE)
End If
End If