如何给系统环境变量赋值？

[pipidu]

使用bat文件分别调用VB和COB编写的EXE；
当VB程序运行出错，给环境变量赋个特出意义的值，这样COB就用执行了。
是否需要使用API函数呢？求教

[嗷嗷叫的老马]

也就是说，是两个程序间通讯的问题罗？

如果不存在其他非用楼主的方法的理由，我想可以用其他的方法来达到这个目的的吧。

[嗷嗷叫的老马]

至于环境变量的使用，如下：（转）

要想在VB程序中访问环境变量，你需要使用Environ函数。该函数有两种使用方法。如果你向该函数传递变量名称，函数会返回该变量的值，如果该变量未定义，则返回一个空字符串。如果你向该函数传递一个数字，它会返回该数字对应位置的整个环境变量串（变量名称、等号标志、变量值）。如果该数字对应的位置没有变量，则函数返回一个空字符串。以下代码可以在Message Box中显示全部的环境变量：

Dim buf As String, msg As String, idx As Integer
idx = 1
Do
buf = Environ(idx)
msg = msg & buf & vbCrLf
idx = idx + 1
Loop Until buf = ""

MsgBox msg

通过Environ函数，你的VB程序可以检索全部的环境变量，并可以选择其中有用的变量进行利用。