| |
でるもんた・いいじまです。追伸。
> 秀丸がインストールされているパスはマシン一台一台で違うので、
> もしユーザにエディタのフルパス（や、表示する行の指定方法）を指定させずに
> 日本語版の秀丸だけと決め打ちするのであれば、
>
> Sub StartHidemaru()
> Dim result
> result = Shell(Environ("COMSPEC") & _
> " /c start hidemaru /j53 ""Meisai.Dat""", _
> vbMinimizedUnfocus)
> End Sub
> としたほうが可搬性がいいでしょう。
これですが、せっかくVBSではなくVB6を使うのですから、
こちらのほうが素直かもしれません。
Declare Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As Long
Const HIDEMARU = "hidemaru.exe" 'パス不要。拡張子は書くのが無難。
Const SW_SHOWNORMAL = 1
Const hNULL = 0
Sub StartHidemaru()
Dim result
result = ShellExecuteA(hNULL, "open", HIDEMARU, _
"/j53 ""Meisai.dat""", vbNullString, SW_SHOWNORMAL)
End Sub
|
|