_open.vbs

_open.vbs

Option Explicit
Dim WShell, oExec
Set WShell = WScript.CreateObject("WScript.Shell")
Dim openPath, numArgs, argPath
Dim exe
exe = "explorer /root,"
'exe = "C:\opt\apl\mdie0300RC6\MDIE.exe"
'exe = "C:\opt\apl\xf11-7\XF.exe"
numArgs = WScript.Arguments.Count
'[.][./]は引数無しと一緒（カレントパス）
If numArgs > 0 Then
     argPath = Replace(WScript.Arguments.Unnamed.Item(0), "/", "\")
     If argPath = "." or argPath = ".\" then
          openPath = WShell.CurrentDirectory
     Else
          openPath = argPath
     End If
Else
     openPath = WShell.CurrentDirectory
End If
Set oExec = WShell.Exec(exe &" " &"""" & openPath & """")
Set WShell = nothing
Set oExec = nothing

@echo off
CScript C:\opt\bin_open.vbs //nologo