博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

用Environ得到系统所有环境变量

Posted on 2008-07-16 07:25  随风飘零0  阅读(273)  评论(0)  编辑  收藏  举报

 

Private Sub Command1_Click()
    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
End Sub