10/05/07 19:19:19 jYdl4BOy
>>562
そんなクソなサイト参考にすんな。
他のプロセスの環境変数を汚さないよう↓こうやってやるんだよ
Sub f()
Const current = "c:\tmp"
Const path1 = "D:\App\MyApp\bin"
Const exe = "app.exe"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim wsh
Set wsh = CreateObject("WScript.Shell")
Dim env
Set env = wsh.Environment("Process")
If env("PATH") = "" Then
env("PATH") = path1
Else
env("PATH") = env("PATH") & ";" & path1
End If
'同様に他の環境変数も設定する
wsh.CurrentDirectory = current
wsh.Run(exe)
End Sub
Call f()