08/03/24 00:00:04 lGzn/Myd0
>>501
ｽﾚﾘﾝｸ(software板:241番)
> フォルダだったら中を開くようにしてみた
> '使い方: 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