用VB获得操作系统路径示例和操作系统环境函数Environ

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
_______________________________________________________
Private Sub Command1_Click()
        Dim S     As String
        Dim Ret     As Long
        S = Space(1024)
        Ret = GetSystemDirectory(S, 1024)
        S = Left$(S, InStr(S, Chr(0)) - 1)
        MsgBox S
        MsgBox Environ(2)
End Sub

 

操作系统环境函数Environ 就是返回系统set环境变量的值

Private Sub command1_Click()
Dim i As Integer
For i = 1 To 100 
    Debug.Print Environ(i)
Next i
End Sub


发布了50 篇原创文章 · 获赞 3 · 访问量 10万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览