Windows Form アプリの exe を vbs から起動するとメインフォームが不完全に表示された後、システムダウンする。

Question

前提

開発環境：Visual Studio 2019
開発言語：VB.NET
アプリ：Windows Form

ビルドした exe をダブルクリックして起動すると正常にフォームが表示されます。
勿論、Visual Studio でデバッグ開始しても正常にフォームが表示されます。

実現したいこと

vbs からその exe を起動したい。

発生している問題・エラーメッセージ

vbs から exe を起動するとメインフォーム内の各コントロールにテキストなどが設定されていない状態で表示された次の瞬間、システムダウンします。

該当のソースコード

option Explicit

Dim objWshShell

Set objWshShell = CreateObject("WScript.Shell")

objWshShell.Run "C:\Users\User\以下省略\〇〇〇.exe"

試したこと

管理者権限で実行されるように vbs を修正しましたが、結果は同じでした。

補足情報（FW/ツールのバージョンなど）

別の Windows Form アプリでは上記同様の vbs からその exe を起動しても、正しく立ち上がり、実行できています。

Comments

[dodox86]

「システムダウン」と聞くと、Windowsと言うOSごと異常終了したことを指すようにも思えますが、そういうことですか？ それとも起動したWindows Formsのアプリだけが異常終了してしまったということでしょうか。

> 管理者権限で実行されるように vbs を修正しましたが、結果は同じでした

もともとのWindows Formsのアプリは管理者権限で動く必要は無いのですよね。

> objWshShell.Run "C:\Users\User\以下省略\〇〇〇.exe"

なんとなくですが、実行時のカレントディレクトリがその「〇〇〇.exe」と同じになっていなければいけないアプリなのではないでしょうか。

[oribe]

●Windows Form アプリが異常終了となります。

●「実行時のカレントディレクトリと exe が同じ」旨のご指摘、ありがとうございました。

Answer 1

dodox86 様のご指摘を受け、vbs を以下のように修正し、正しく起動することを確認しました。

WshShell.CurrentDirectory = Session.Property("TARGETDIR")

otn 様、YAmaGNZ 様、ご回答をくださり、誠にありがとうございました。

dodox86 様の指摘を受けての自己解決ということで本件クローズとさせてください。

Answer 2

option Explicit
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.CurrentDirectory = "C:\Users\User\以下省略"
objWshShell.Run "C:\Users\User\以下省略\〇〇〇.exe"

option Explicit
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "cmd /c ""cd /d C:\Users\User\以下省略 & 〇〇〇.exe"""

Answer 3

objWshShell.CurrentDirectoryで作業フォルダを指定してはどうでしょうか