Private Sub Command1_Click() Dim EnvString, Indx, Msg, PathLen
Indx = 1
Do
EnvString = Environ(Indx)
Indx = Indx + 1
List1.AddItem EnvString
Loop Until EnvString = ""
End Sub
参考一下
Indx = 1
Do
EnvString = Environ(Indx)
Indx = Indx + 1
List1.AddItem EnvString
Loop Until EnvString = ""
End Sub
参考一下
A: 使用IIS的内建对象,引用Active DS Type Library.3\怎样获得系统中 一组com+的文件路径?
A: 要看是什么COM了,如果不确定,但知道ClassID,可以通过注册表查到