VB编程：获取系统目录和Windows目录

声明：

' 获取系统目录
public declare function getsystemdirectory lib 'kernel32' alias 'getsystemdirectorya' _
(byval lpbuffer as string, byval nsize as long) as long
' 获取windows目录
declare function getwindowsdirectory lib 'kernel32' alias 'getwindowsdirectorya' _
(byval lpbuffer as string, byval nsize as long) as long

调用：

' 检查系统目录
public function getsystempath() as string
dim p as string * 80
dim length as long
dim path as string

length = getsystem directory(p, len(p))
path = left(p, length)
getsystempath = path
end function

' 检查windows目录
public function getwindowspath() as string
dim p as string * 80
dim length as long
dim path as string

length = getwindows directory(p, len(p))
path = left(p, length)

getwindowspath = path
end function