说明：此函数的返回值类型为Long，非零表示成功，零表示失败。会设置GetLastError

参数说明：
LpPathName String，新当前目录的路径

示例：
SetCurrentDirectory "d:\"  '设置D:为当前目录

7、GetSystemDirectory

作用：这个函数能取得Windows系统目录（System目录）的完整路径名。在这个目录中，包含了所有必要的系统文件。根据微软的标准，其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中，往往需要管理员权限才可对这个目录进行写操作

声明：Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

说明：此函数的返回值类型为Long，装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大，不能容下文件名，则返回要求的缓冲区长度

参数说明：
lpBuffer String，用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize+1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度
nSize Long，lpBuffer字串的最大长度

示例：
Private Sub Get_SystemDirectory()
    Dim sSave As String, Ret As Long
    '创建缓冲区
    sSave = Space(255)
    '获取系统目录
    Ret = GetSystemDirectory(sSave, 255)
    '移除多余的0
    sSave = Left$(sSave, Ret)
    '显示路径
    MsgBox "系统目录: " + sSave
End Sub