VB函数获取Win目录和系统system32目录例子代码

VB函数获取Win目录和系统system32目录例子代码是小编为大家整理的两个VB函数，觉得这两个函数都非常的常用，一个是获取Win目录，另外一个是获取系统system32目录，下面咱们先来看下获取system32目录:

函数名：GetSysDir

Public Function GetSysDir() As String
    Dim temp As String * 256
    Dim x As Integer
    x = GetSystemDirectory(temp, Len(temp))
    GetSysDir = Left$(temp, x)
End Function

以下是获取Win目录的函数代码，本函数名：GetWinDir，代码：

Public Function GetWinDir() As String
    Dim temp As String * 256
    Dim x As Integer
    x = GetWindowsDirectory(temp, Len(temp))
    GetWinDir = Left$(temp, x)
End Function

具体怎么使用小编就不过多介绍了。