VB中操作目录的Winodws API小结

　　声明形式：

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
　　说明：此函数的返回值类型为Long，装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大，不能容下文件名，则返回要求的缓冲区长度

　　参数说明：

参数类型及说明lpBufferString，用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize 1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度nSizeLong，lpBuffer字串的最大长度
　　示例代码如下：

‘函数声明

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

Private Sub form_load()
　Dim buffer As String
　Dim size As Long
　size = 255
　buffer = size 1
　GetSystemDirectory buffer, size ‘将系统路径存放在buffer中
　MsgBox buffer ‘显示路径

End Sub
　　以上代码获取了windows系统目录的完