当我们需要让自己的程序判断系统目录和windows目录的名字。这时可以调用windowsapi函数getsystemdirectory和getwindowsdirectory。


声明：

' 获取系统目录
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