環境変数PATHに追加する

けい 2006-06-02 19:31:05 No: 131680

お世話になります。
あるプログラムを実行させるためのVBアプリを作成しています。

VB6担当部分はたいしたことなく、
ランタイム群をコピーして、PATHにランタイム群の場所を追加して、
プログラムを実行するだけです。

現在、PATHを追加する部分で悩んでいます。
現在の環境変数にPATHを追加する方法を教えてください。

レジストリに追加してみましたが、再起動するまで有効にならないようです。

よろしくお願いいたします。

いな 2006-06-02 20:13:00 No: 131681

愚直に、
set PATH=ランタイム群の場所

と記述したバッチファイルを実行する。とか？ダメ？

けい 2006-06-03 01:26:09 No: 131682

DOS時代の感覚ですが、SET PATHだと再起同時に有効にはならないとおもいます。

初回実行用に、SET PATHで、同時にレジストリに追加してしまえばいいの
かな・・・。

どっちも１度に行えるものがあればと思っておたずねしたのですけど・・・。

LESIA 2006-06-06 19:54:44 No: 131683

WSHを使えばできます。

Dim WshShell As Object
Dim WshEnvironment As Object

Set WshShell = CreateObject("WScript.Shell")
Set WshEnvironment = WshShell.Environment("USER")

If WshEnvironment.Item("PATH") = "" Then
WshEnvironment.Item("PATH") = "C:\hogehoge"
Else
WshEnvironment.Item("PATH") = WshEnvironment.Item("PATH") & ";" & "C:\hogehoge"
End If